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EXECUTIVE  SUMMARY 


The  IALLUVIAL  computer  program  for  prediction  of  long-term  bed  evolution 
in  alluvial  rivers  was  designed  to  take  into  account  the  effects  of  bed 
armoring  on  sediment  transport  and  flow  resistance.  Recent  studies  of 
Missouri  River  bed  evolution  using  IALLUVIAL  have  demonstrated  the  sensitivity 
of  ultimate  bed  degradation  to  armoring. 

The  purpose  of  this  study  was  to  reassess  critically  the  conceptual  model 
of  armoring  used  in  IALLUVIAL,  propose  alternative  methodologies  having 
clearer  physical  bases,  and  test  these  alternatives  on  the  Missouri  River 
between  Gavins  Point  Dam  and  Omaha. 

The  results  of  this  study  suggest  that  the  fundamental  armoring  approach 
initially  adopted  should  be  retained;  this  approach  involves  use  of  a  so- 
called  armoring  factor,  defined  as  the  fraction  of  bed  surface  covered  by 
immobile  particles,  as  a  correction  factor  for  reducing  theoretical  sediment 
transport  capacity,  reducing  theoretical  dune  heights,  and  allocating  energy 
losses  between  bed  form  resistance  and  surface  roughness  resistance.  However 
the  computation  of  the  armoring  factor  itself  has  been  considerably  modified 
to  take  into  account  persistence  in  time,  moving  dune  effects,  and  the 
stochastic  nature  of  incipient  particle  motion.  Two  alternative  procedures, 
in  which  an  explicit  treatment  of  armoring  was  abandoned  in  favor  of  use  of 
thin  surface  and/or  bed  layers  in  which  rapid  bed  material  coarsening  would 
simulate  the  effects  of  armoring,  were  tested  and  ultimately  rejected. 

This  report  includes  a  review  of  current  literature  on  armoring, 
describes  the  details  of  implementation  of  various  armoring  procedures  in 
IALLUVIAL,  and  presents  detailed  results  and  analysis  of  all  tests  performed. 
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I.  INTRODUCTION 


The  Missouri  River  between  Gavins  Point  Dam  and  Omaha  is  currently 
undergoing  complex  changes  in  response  to  man-made  constraints  imposed  upon 
it.  The  virtual  elimination  of  upstream  sediment  supply  by  the  trapping 
effect  of  Gavins  Point  Dam  and  other  upstream  multi-purpose  developments, 
along  with  the  maintenance  of  a  nine-foot-deep  navigation  channel  below  Sioux 
City  through  channelization  and  bank  stabilization,  have  caused  the  river  to 
erode  its  bed  rather  severely.  Since  1960  as  much  as  eight  feet  of  bed 
degradation  has  been  observed  near  Sioux  City.  Such  decreases  in  bed 
elevation,  with  their  concomitant  decreases  in  water  level,  are  the  source  of 
serious  concern  for  their  engineering  consequences  (bank  stability,  structure 
stability,  tributary  headcutting,  etc.)  as  well  as  their  environmental  effects 
(destruction  of  wildlife  habitat,  lowering  of  oxbow  lake  levels,  increase  in 
turbidity,  etc. ). 

In  view  of  the  serious  nature  of  these  symptoms  of  the  Missouri  River's 
attempt  to  achieve  a  new  equilibrium  in  response  to  the  changes  imposed  upon 
it,  there  has  been  considerable  interest  in  exploring  the  feasibility  of 
proposed  means  of  slowing  the  degradation,  as  well  as  in  forecasting  the 
future  course  of  channel  response. 

The  IALLUVIAL  computer  program  was  developed  in  response  to  this  need  for 
a  means  of  forecasting  future  river  response  under  both  present  conditions  and 
proposed  scenarios  for  engineering  solutions  to  the  degradation  problem. 
IALLUVIAL  is  a  deterministic,  computer-based  methodology  for  computation  of 
long-term  evolution  of  water  surface  level,  bed  level,  and  bed  material 
composition  in  an  assumed  one-dimensional  channel.  Using  Karim  and  Kennedy's 
(1982)  Total  Load  Transport  Model  for  simultaneous  prediction  of  transport 


capacity  and  bed  friction  factor,  I ALLUVIAL  alternately  solves  the  water  flow 
energy  equation  and  the  sediment  continuity  equation  in  each  of  a  series  of 
incremental  time  steps.  Bed  elevation  changes,  as  well  as  changes  in  bed 
material  composition  and  surface  armor  layer,  are  thus  estimated  for  imposed 
quasi-steady  water  discharge  hydrographs,  upstream  and  tributary  sediment 
inflow  hydrographs,  and  tributary  inflow  hydrographs. 

The  first  application  of  IALLUVIAL  was  an  attempt  to  reproduce  the  past 
twenty  years  of  Missouri  River  bed  evolution  (Karim  and  Kennedy,  1982).  Based 
on  the  encouraging  results  of  that  study,  IALLUVIAL  was  generalized  to  allow 
for  a  more  complete  treatment  of  tributary  inflows  and  fitted  with  procedures 
for  the  simulation  of  the  effects  of  vertical  nonhomogeneity  of  bed  material, 
dredging,  artificial  cutoffs,  bank  erosion,  and  imposed  width  changes.  A  more 
detailed  data  set  describing  the  Missouri  River  from  Gavins  Point  Dam  to 
Iowa's  southern  border  was  prepared,  and  the  expanded  program  was  used  to 
predict  the  next  twenty  years  of  bed  evolution  under  various  scenarios.  These 
scenarios  included  the  continuation  of  present  conditions,  changes  in  Gavins 
Point  Dam  release  schedules,  artificial  bed  armoring,  channel  widening, 
sediment  release  from  Gavins  Point  Dam,  etc.  The  computations,  reported  in 
detail  by  Holly  and  Karim  (1983),  suggested  that  the  worst  of  the  degradation 
is  probably  over.  Of  more  importance  to  the  present  study  was  the  opportunity 
to  identify  several  aspects  of  IALLUVIAL' s  methodology  which  were  in  need  of 
reevaluation  and  possible  reformulation.  One  of  the  more  important  of  these 
methodologies  was  that  used  for  simulating  armoring,  i.e.  the  tendency  for 
larger  bed  material  particles  to  form  a  protective  coating  over  finer 
underlying  material.  This  armoring  may  be  a  primary  mechanism  for  ultimate 

degradation  control  in  the  Missouri. 
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Tne  10,1 '  if  • -v  ,t  id>  .vds  to  reassess  critically  the  rather  ad 

hoc  jnn-’ni  r  ••  .  -*i  'n  IAil'JVIAL,  and  to  propose  and  test 

alternative  ,t  i,  .'I  /  ■■  1  .  ,  i*  > r  •*  i.i  ini  physical  bases.  This  report  revi  ews 

the  current  ,  •  >  k  vi''i|  in  alluvial  rivers;  proposes  several 

procedures  f  jr  ,s.*  •  .  v!L,  i»->.;rioes  their  implementation  in  I  ALLUVIAL ; 

reports  the  results  >f  rest’n»j  of  these  procedures  on  the  Missouri  River;  and 
reco.nmends  toe  adoption  of  certain  procedures  in  future  use  of  IALLUVIAL. 
Appendices  contain  an  IALl'JVIAL  listing  as  well  as  input  format  description 
and  a  sample  input. 


II.  BED  ARMORING  PROCEDURES 


A.  Introductory  Remarks 

Armoring  of  the  bed  surface,  along  with  general  coarsening  of  the  bed- 
material,  are  the  principal  mechanisms  through  which  a  degrading  river  bed 
downstream  of  a  new  dam  attempts  to  achieve  a  new  equilibrium  condition. 
Representation  of  the  bed  armoring  process  in  a  computer-based  mathematical 
model,  like  IALUJVIAL,  therefore  is  a  critical  component  on  which  depends  the 
accuracy  in  prediction  of  future  river  bed  evolution.  The  armoring  process  is 
a  complex  phenomenon  which  depends  on  several  interdependent  factors,  e.g., 
size  distribution  of  bed  material  and  its  variation  in  the  vertical  direction 
below  the  bed,  intensity  of  flow  discharge  and  sediment  transport,  the 
formation  and  movement  of  bed  features  like  ripples  and  dunes,  and  the 
continual  sorting  and  mixing  of  bed  sediments  as  affected  by  these  bed 
features.  The  armoring  process  as  it  begins  and  evolves  during  the  gradual 
degradation  process  of  an  alluvial  river  bed  is  not  well  understood. 
Nevertheless,  the  existing  knowledge  in  this  area  has  been  used  to  improve  the 
present  formulation  of  bed  armoring  in  IALUJVIAL.  The  following  sections 
present  a  literature  review  and  descriptions  of  the  previous  and  the  proposed 
procedures  of  bed  armoring  incorporated  into  the  program. 

B.  Literature  Review 

In  more  than  three  decades  since  the  pioneering  work  of  Harrison  (1950), 
many  investigators  have  studied  the  bed  armoring  process  in  alluvial  rivers. 
Because  of  the  complexity  of  the  phenomenon,  the  progress  has  been  painfully 
slow.  The  present  state  of  knowledge  in  this  area  is  summarized  below  by 
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brief  descriptions  of  the  works  of  Harrison  (1950),  Gessler  (1967),  Little  and 
Mayer  (1972),  and  Shen  and  Lu  (1983). 


1.  Harrison's  Analysis.  The  earliest  investigation  on  bed  armoring  in 
alluvial  channels  was  reported  by  Harrison  (1950).  He  performed  laboratory 
experiments  with  three  different  bed-material  sizes  to  study  the  development 
of  armoring  in  a  degrading  bed,  and  used  Einstein's  method  to  analyze  his 
experimental  data.  Harrison's  major  conclusions,  as  summarized  by  Little  and 
Mayer  (1972),  were: 

"1.  The  accumulation  of  non-moving  particles  on  the  bed  surface  causes 
an  increase  in  its  effective  roughness. 

2.  It  has  been  found  that  a  layer  of  non-moving  particles,  the  thickness 
of  one  particle,  is  effective  in  preventing  scour.  It  is  felt  that  a  complete 
layer  of  non-moving  particles  is  not  necessary  in  all  cases. 

3.  Non-moving  particles  in  a  pavement  arrange  themselves  in  a 
characteristic  "shingled"  formation. 

4.  The  Einstein  relationship  for  the  rate  of  transport  predicts  very 
well  the  limiting  grain  size,  i.e.,  a  size  larger  than  that  for  which  there  is 
no  transport.  Einstein's  function  for  the  limiting  size  was  V*  =  27." 

2.  Gessler's  Procedure.  Gessler  (1967)  proposed  a  procedure  to 
determine  the  size  distribution  of  the  armor  coat  on  an  alluvial  bed.  He 
argued  that  the  incipient  motion  of  grains  is  a  probabilistic  process,  as 
opposed  to  the  usual  assumption  of  its  deterministic  character  first  suggested 
by  Shields  (1936).  Assuming  that  the  instantaneous  bed  shear  stress 


fluctuates  widely  around  its  mean  value  in  time,  and  that  this  Gaussian- 
distributed  fluctuating  bed  shear  stress  is  responsible  for  the  stochastic 
nature  of  sediment  motion,  Gessler  formulated  an  expression  for  the 


probability  that  a  grain  of  given  size  will  remain  a  part  of  the  top  layer 
(armor  coat).  With  the  assumption  that  this  probability  depends  on  the 
magnitude  of  the  mean  bed  shear  stress,  x,  relative  to  the  critical  shear  of 
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the  sediment  size  fraction  k,  xc(c,  the  probability  of  grain  size  k  to  remain 
as  part  of  the  top  layer,  q^,  is  given  as 
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in  which  x  is  a  dummy  variable  and  a  is  the  standard  deviation  of  the  assumed 
Gaussian  distribution  of  the  bed  shear  stress  fluctuations  in  time.  The  value 
of  a  was  determined  as  0.57  by  Gessler  (1967)  from  a  series  of  flume 
experiments  in  which  he  measured  the  grain  size  distribution  of  the  eroded  and 
the  armor-coat  materials.  Equation  (1)  with  a  =  0.57,  along  with  the 

experimental  points,  is  represented  graphically  in  figure  1.  With  qk 
calculated  from  Eq.  (1)  or  figure  1,  the  frequency  function  for  grain  size 
interval  k  of  the  armor  coat,  Pa|<»  is  obtained  from 


ak  ”  “Si - 

I  9k  ^ok 

where  pok  =  frequency  function  (or  fraction)  of  grain  size  interval  k  of  the 
initial  bed  material  ;  and  m  =  total  number  of  size  fractions. 

Gessler  (1970)  further  suggested  that  the  mean  value  of  the  probabilities 
for  the  armor-coat  grains  to  stay,  q,  may  be  utilized  as  a  stability  criterion 
of  the  armor  coat: 
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A  value  of  q  =  0.50  was  suggested  as  the  critical  value  above  which  armor  coat 
would  be  stable.  For  design  criterion  of  stable  irrigation  canals,  q"  =  0.65 
was  recommended. 

3.  Little  and  Mayer's  Method.  Little  and  Mayer  (1972)  performed 
extensive  laboratory  experiments  in  a  recirculating  flume,  60  feet  long  and 
1.97  feet  wide,  to  study  the  effect  of  sediment  gradation  on  channel 


armori ng. 


They  used  in  their  experiments  sands  having  log-normal 


distributions  with  median  size  D^q  =  1.0  mm  and  six  different  gradation 
coefficients  (geometric  standard  deviations)  ag  =  1.12,  1.50,  2.05,  2.50, 

3.00,  and  3.05.  After  virtual  cessation  of  sediment  discharge,  the  size 
distribution  of  the  armored  bed  was  measured  for  each  run  by  surface  sampling 
using  purified  bee's  wax.  From  a  least-squares  analysis  of  the  experimental 
results,  an  expression  for  the  median  size  of  the  final  armor  coat,  dqa,  was 


obtained: 


3  0.353 
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where  dgo  =  median  size  of  original  bed;  ag0  =  gradation  coefficient  of  the 
original  bed;  u*c  =  critical  shear  velocity  from  Shields'  diagram;  v  = 
kinematic  viscosity;  s  =  specific  gravity  of  sand  particles;  and  g  = 
gravitational  constant.  It  may  be  noted  that  the  expression  within  brackets 
on  the  right-hand  side  of  Eq.  (4)  is  the  product  of  the  Shields'  parameter  and 
the  critical  particle  Reynolds  number. 

The  geometric  standard  deviation  of  the  armor  coat,  a  ,,  is  calculated 


1.  317  -  0.  2435  a, 
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In  the  formulation  of  Eq.  (5)  from  measured  data,  sediment  particles  smaller 
than  dga  in  the  armor  coat  were  excluded  from  analysis,  because  these 
particles  were  wedged  between  larger  particles  and,  thus,  did  not  contribute 
to  the  stability  of  the  bed.  It  was  suggested  that  the  bed  would  be  armored 
if  dga  computed  from  Eq.  (4)  is  larger  than  dgs  but  less  than  dg5,  where  dgs 
and  dg5  are  the  particle  sizes  of  the  original  bed  for  which  5  and  95  percent 
are  finer,  respectively. 

In  an  analysis  of  their  experimental  data  using  Gessler's  (1967) 
procedure,  Little  and  Mayer  (1972)  noted  that  dga  ‘ s  predicted  by  Gessler's 
method  underestimated  the  corresponding  measured  values  by  as  much  as  29 
percent;  good  agreement  was,  however,  observed  if  Gessler's  recommended  values 
of  Shields'  parameter,  and  standard  deviation  of  dimensionless  shear  stress, 
were  modified  from  0.047  and  0.57  to  about  0.030  and  0.45,  respectively. 

In  their  experiments,  Little  and  Mayer  observed  that  dunes  formed 
initially,  and  as  they  moved  off  and  disappeared  from  the  flume  bed,  armoring 
became  apparent.  Armoring  of  the  surface  had  no  significant  effect  on  average 
bed  shear  stress,  because  the  slight  reduction  (5%)  in  slope  was  compensated 
by  a  corresponding  increase  in  flow  depth.  They  further  observed  that  after  an 
armor  coat  had  formed,  a  very  low  sediment  transport  rate  continued  for  long 
periods  of  time,  fed  by  local  erosion  of  finer  particles  around  larger  ones. 
For  runs  with  OgQ  2  2.0,  there  was  very  little  reduction  in  slope,  with  the 
armored  bed  degrading  essentially  parallel  to  the  original  bed  slope; 

for  a  <;  1.50,  there  was  little  armoring,  and  for  n  =  1.12,  the  bed  was 
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free  of  armoring  under  all  flow  conditions. 


4.  Shen  and  Lu's  Analysis.  The  most  recent  analysis  of  bed  armoring 
process  is  presented  by  Shen  and  Lu  (1983).  Their  method  is  essentially  an 
extension  of  Gessler's  (1967)  procedure,  with  modifications  suggested  for 
estimating  the  probability  that  grains  of  size  interval  k  remain  in  the  armor 
coat,  qi<  (given  by  Gessler  (1967)  in  the  form  of  Eq.  (1)  or  figure  1).  These 
modifications,  as  suggested  by  Shen  and  Lu,  are: 

(i )  The  upper  limit  of  integration  of  the  expression  for  qk,  Eq.  i$ 
changed  by  multiplying  the  critical  shear  stress  for  size  fraction  k,  tck,  by 
the  hiding  factor,  £,  leading  to  a  modified  form  of  Eq.  (1): 

'li,  =  — ZI  /  T  exp  (-  ^-r)  dx  (6) 

a/ 2*  —  2a 

The  relation  for  hiding  factor  (5)  was  adapted  from  Einstein's  (1950) 
analysis,  using  a  fitting  procedure  based  on  Little  and  Mayer's  (1972) 
experimental  data,  and  on  the  basis  of  the  argument  that  Einstein's 
original  r,-curve  was  grossly  overestimated.  Shen  and  Lu's  proposed  graphical 
relation  for  5  as  a  function  of  D/x,  in  which  D  =  grain  size  and  x  = 
characteristic  grain  size  (a  function  of  apparent  roughness  height  and  laminar 
sublayer  thickness)  is  presented  in  figure  2a. 

(ii)  The  value  of  r  ■  in  Eq.  (6)  is  calculated  from  a  modified  Shields' 
curve,  given  in  figure  2b  (Shen  and  Lu  (1983)).  The  deviation  (reduction)  of 
the  critical  shear  stress  value  from  Shields'  diagram,  as  seen  in  figure  2b, 
is  caused  as  argued  by  Shen  and  Lu ,  by  the  greater  exposure  of  larger 
particles  to  flow,  due  to  their  protrusion  from  the  mean  bed  surface.  It 
should  be  noted  here  that  figure  2b  gives  the  critical  shear  stress  for 
incipient  motion  of  the  mixture  of  bed  particles,  using  the  30%  grain  diameter 
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as  the  representative  size  of  the  mixture.  Thus,  according  to  Shen  and  Lu's 
procedure,  the  value  of  tc(c  is  independent  of  the  sediment  size  interval  and 
is  determined  by  the  30%  size  of  the  mixture;  therefore,  the  differentiation 
in  q^  for  each  size  fraction  is  represented  in  Eq.  (6)  only  through  the  hiding 
factor,  Again,  Shen  and  Lu's  modified  Shields'  curve  in  figure  2b  is 
heavily  influenced  by  Little  and  Mayer's  (1972)  experimental  data. 

(iii)  The  constant  value  of  a  =  0.57  (a  =  standard  deviation  of  the 
normally  distributed  bed  shear  stresses,  Eqs.  (1,  6)  as  used  by  Gessler 
(1967))  is  modified  and  assumed  to  be  a  function  of  the  gradation 


coefficient,  o^,  of  the  initial  size  distribution. 


The  relation 


between  a  and  a  is  expressed  by  Shen  and  Lu  in  the  following  tabular  form 
(table  1): 


T.kln  1 


From  a  statistical  analysis  of  experimental  data  of  Little  and  Mayer 
(1972)  and  Gessler  (1967)  and  of  the  field  data  of  Lane  and  Carlson  (1953), 
with  a  total  of  14  data  points,  Shen  and  Lu  (1983)  proposed  the  following 


regression  equations  to  predict  D^g,  Dgg,  and  Dg4  of  the  final  armor  coat: 
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in  which  tc  =  critical  shear  stress  corresponding  to  D^q ;  Dgg,  03q,  Dq4  = 
sediment  sizes  for  which  50%,  30%  and  84%  are  finer  in  the  armor  coat, 
respectively;  and  ,  Dg^  =  the  corresponding  values  of  Dgg,  D3Q,  and 

Dg4  of  the  initial  size  distribution. 

5.  Discussion.  From  the  brief  descriptions  in  the  preceeding  sections, 
it  is  apparent  that  the  works  of  Harrison  (1950),  Gessler  (1967),  Little  and 
Mayer  (1972),  and  Shen  and  Lu  (1983)  presented  significant  contributions 
toward  an  understanding  of  the  bed  armoring  process.  Nevertheless,  present 
knowledge  on  armoring  of  alluvial  beds  is  not  satisfactory,  particularly  from 
the  point  of  view  of  dynamic  simulation  of  temporal  evolution  of  armoring  on  a 
degrading  river  bed.  Gessler  and  Little  and  Mayer,  for  example,  developed 
relations  to  predict  the  size  distribution  of  the  final  armor  coat  after 
sediment  transport  practically  stopped,  but  the  evolution  of  bed  armoring  with 
progressing  bed  degradation  was  not  investigated.  Shen  and  Lu's  procedure, 
which  essentially  adapted  Gessler's  method  to  Little  and  Mayer's  experimental 
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data,  suffers  from  the  same  limitation.  An  additional  shortcoming  of  these 
investigations  is  that  they  were  limited  to  flow  conditions  corresponding  only 
to  a  plane  bed.  Very  little  is  known  about  the  role  of  armoring  on  an  active 
bed  with  continuous  formation  and  propagation  of  ripples  and  dunes. 

In  view  of  the  above  discussion,  the  need  for  further  research  in  the 
following  two  areas  can  be  hardly  overemphasized:  (i)  the  dynamic  relation 
among  the  amount  of  degradation,  flow  variables,  and  the  extent  of  armoring 
from  its  initiation  to  the  final  stage;  and  (ii)  the  mechanism  of  sorting 
among  different  size  fractions  within  the  bed  forms  (ripples  and  dunes)  and 
their  effects  on  bed  armoring.  The  following  sections  attempt  to  formulate 
these  two  features  of  the  bed  armoring  process  for  their  incorporation  into 
the  IALLUVIAL  program  with  the  realization  that  this  is  a  first  step  which 
will  need  continuous  refinement  as  more  knowledge  is  gained  in  this  area. 

C.  Armoring  Procedures  in  IALLUVIAL 

The  present  code  of  IALLUVIAL  includes  several  alternative  procedures  to 
account  for  bed  armoring  in  alluvial  channels;  these  procedures  are  described 
in  the  following  sections.  Section  II.C.l  presents  the  method  which  was  the 
only  armoring  procedure  included  in  IALLUVIAL  before  this  study.  The 
remaining  sections  describe  the  new  armoring  procedures  included  in  the  new 
version  of  IALLUVIAL. 

1.  Degradation  and  Armoring  on  a  Plane  Bed.  For  flow  conditions  which 
produce  a  nearly  flat  bed  in  rivers,  gradual  degradation  (downstream  of  a  dam, 
for  example)  of  a  bed  containing  a  significant  amounts  of  coarse  sediments 
which  could  not  be  moved  by  the  flow  will  lead  to  rapid  armoring  of  the  bed 
surface.  The  extent  of  armoring  in  such  a  case  can  be  determined  by  relating 


the  depth  of  degradation  to  the  corresponding  volume  of  non-moving  sediment 
size  fractions  and  then  converting  the  volume  of  accumulated  sediments  into  an 
areal  distribution  by  assuming  some  thickness  of  the  top  layer.  Even  though 
the  experimental  works  of  Gessler  (1967)  and  Little  and  Mayer  (1972)  and  field 
observations  indicate  that  the  armor  coat  contains  sediments  of  all  size 
fractions  of  the  original  bed  material,  it  is  assumed  in  the  present  analysis 
that  as  the  armoring  develops  with  increasing  bed  degradation,  the  bed  surface 
is  segregated  into  two  parts:  the  armor  coat,  and  the  part  of  the  bed 
containing  the  movable  size  fractions,  as  depicted  in  figure  3.  It  is  assumed 
that  the  parameter  of  interest  is  the  fraction  of  the  bed  covered  by  the  non¬ 
moving  armoring  particles,  because  the  finer  particles  in  between  the  larger 
ones  do  not  contribute  to  the  stability  of  the  bed  and  will  become  part  of  the 
sediment  transport  at  one  time  or  another,  even  though  some  of  them  may  be 
sheltered  by  the  armoring  particles.  From  this  point  of  view,  determination 
of  the  complete  size  distribution  of  an  armor  coat  is  not  necessary  and  is  not 
attempted  in  this  study.  Instead,  the  fraction  of  bed  surface  covered  by  non¬ 
moving  particles  at  any  given  time  is  used  as  a  measure  of  the  extent  of 
armoring  on  a  degrading  bed. 

For  determining  the  fraction  of  the  bed  surface  covered  by  immobile 
particles  at  a  given  time,  Af(t),  it  is  assumed  that  there  are  a  total  of  m 
size  fractions,  of  which  fractions  i  through  m  (t  <  m)  cannot  be  transported 
by  the  flow  and  accumulate  on  the  surface  in  a  one-diameter-thick  top  layer. 
The  total  volume  of  these  accumulating  particles  per  unit  bed  area  after  time 
t.  is 
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V(t)  =  (1-p)  d$(t)  l  pk 

k=t 


(10) 
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Figure  3.  Schematic  representation  of  armoring  on  a  plane  bed 


where  p  -  porosity  of  sediment  bed  material;  d$(t)  =  cumulative  depth  of 
degradation  after  time  t;  and  p^  =  fraction  of  sediment  in  size  interval  k. 
Assuming  that  the  shape  of  particles  is  circular  ellipsoid  with  a  shape  factor 
fs  (ratio  of  the  smallest  principal  axis  to  the  square  root  of  the  product  of 
the  other  two),  the  volume  of  a  particle  of  fraction  k  with  diameter  of  its 

major  axis  equal  to  0^  is 
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and  the  number  of  armoring  particles  per  unit  bed  area  after  time  t  is  then 
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in  which  V(t,k)  =  value  of  V(t)  for  grain  size  interval  k.  The  surface  area 
covered  by  the  armoring  particles  per  unit  bed  area  after  time  t,  Af(t),  may 
then  be  expressed  as 


Af(t)  =  N(t)  x  largest  projected  area  of  each  particle  (= 
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Writing  (Eq.  n)  in  terms  of  an  equivalent  spherical  particle  of  diameter 
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yields  the  following  expression  for  Dmi<  in  terms  of  D|<: 
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which  is  substituted  into  Eg.  (13)  to  give 
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Assuming  a  shape  factor  fs  =  0.70,  Eq.  (14)  is  written  as 


Af(t)  =  CA  (1-P)  d$(t) 


(15) 


in  which  =  1.902. 

The  derivation  of  Eq.  (15)  assumes  that  the  armor  coat  is  one-diameter 
thick  with  the  following  idealized  arrangement: 


However,  if  the  arrangement  of  armoring  particles  with  two  fractions  (both 
non-moving) ,  for  example,  is 
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the  armoring  coefficient  in  Eq.  (15)  then  will  not  be  constant  but 
different  for  each  fraction,  i.e., 

=  1.902  for  fraction  k 
=  1.902/2  for  fraction  k-1 

If  some  particles  lie  on  their  minor  axis  with  major  axes  perpendicular  to 
bed,  the  value  of  Ca  will  be  further  reduced.  Thus,  in  general,  C/\  wi  1 1  be  a 
function  of  each  fraction  and  its  particular  arrangement  in  the  armoring 
layer. 

Equation  (15)  with  Ca  =  0.50  and  i  =  7  (with  m  =  8,  this  implies  that  the 
last  two  size  fractions,  sediment  size  >  6.76  mm,  were  always  immobile  and 
part  of  the  armor  coat)  was  utilized  to  account  for  bed  armoring  in  the 
previous  version  of  IALLUVIAL  as  applied  in  Missouri  River  studies  to  date. 
Three  shortcomings  of  Eq.  (15)  are  immediately  apparent:  (i)  Ca  is  assumed 
constant  in  time  for  each  size  fraction;  (i i )  a  fixed  number  of  size  fractions 
is  always  responsible  for  armoring;  and  ( i i i )  the  possibility  of  a  particular 
size  fraction  being  part  of  the  armor  coat  in  some  time  intervals  and  not  at 
other  times  is  not  included.  These  shortcomings  are  in  addition  to  the  fact 
that  Eq.  (15)  is  strictly  valid  only  for  a  plane  bed. 

The  first  step  in  removing  these  shortcomings  is  to  extend  the 
formulation  of  Eq.  (15)  to  a  more  general  case  in  which  the  dependence  of  Af 
and  C on  grain  size  fraction  and  time  is  included: 
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in  which  Af(t,k)  =  fraction  of  bed  area  covered  by  grain  size  interval  k  at 
time  t;  CA(t,k)  =  value  of  coefficient  CA  (Eq.  15)  at  time  t  for  size  fraction 
k;  Ad^(t)  =  incremental  depth  of  degradation  during  current  time  interval; 
and  n(t)  =  lowest  grain  size  interval  which  is  immobile  (determined  from 
Shields'  criterion)  and  forms  the  armor  coat  at  time  t.  Eq.  (15)  is  a  special 
case  of  Eq.  (16)  for  CA(t,k)  =  CA  =  constant  and  jt(t)  =  i  =  constant.  The 
effects  of  the  stochastic  nature  of  sediment  motion,  and  the  effects  of 
formation  and  propagation  of  dunes,  are  considered  in  the  context  of 
estimating  the  armoring  coefficient  CA  (t,k)  for  each  sediment  size  fraction 
as  a  function  of  flow  variables  at  a  given  time  in  the  following  sections. 

The  procedure  followed  in  this  study  consists  of  formulating  correction 
factors  due  to  these  effects  (stochastic  sediment  motion  and  dune  movement)  to 
reduce  the  value  of  CA(t,k)  in  Eq.  (16)  from  its  maximum  values  of  1.902  for  a 
plane  bed. 

2.  Stochastic  Nature  of  Sediment  Motion.  Shields'  diagram  is 
universally  used  to  determine  the  critical  bed  shear  stress  above  which 
sediment  notion  takes  place.  It  has  long  been  recognized,  however,  that  this 
deterministic  way  of  calculating  a  definite  cut-off  point  needs  to  be  replaced 
or  supplemented  by  a  procedure  to  account  for  the  stochastic  nature  of 
sediment  motion.  Such  a  procedure  is  proposed  by  Gessler  (1967)  who  suggested 
that  incipient  motion  of  grains  is  probabi 1 i sti c  and  follows  a  Gaussian 
distribution,  with  the  probability  of  motion  being  50%  when  bed  shear  stress 


equals  critical  stress  given  by  Shields'  relation.  His  analysis  has  been 
described  in  Section  II. 8.1.  The  probability  of  grains  remaining  on  the  bed 
(which  is  the  complement  of  the  probability  of  motion),  q^,  as  proposed  by 
Gessler  (1967),  is  given  by  Eq.  (1)  or  figure  1  (Section  II.B.l).  The  usual 
assumption  is  that  q^  =  1  i  f  t^/t  >  1.  Instead,  figure  1  suggests  that  q^  = 
0.5  for  x  / x  =  1  and  approaches  unity  for  x  /T  greater  than  3.  This  implies 
that  larger  grains  are  just  more  likely  to  stay,  as  opposed  to  assigning  an 
equal  probability  of  (100%)  that  all  fractions  greater  than  the  critical  size 
stay.  This  stochastic  nature  of  sediment  motion  is  accounted  for  indirectly 
by  using  q^  as  a  correction  factor  applied  to  C/\: 

CA(t,k)  =  1.902  qk  (17) 

It  is  perhaps  more  appropriate  to  consider  as  a  correction  to  p^,  the 
fraction  of  bed  material  in  size  interval  k  (Eq.  16),  i.e.  the  availability  of 
sediments  to  remain  on  the  bed  and  form  an  armor  coat  is  increased  for  larger 
sizes;  because  of  the  form  of  Eq.  (16),  this  interpretation  is  mathematically 
equivalent  to  the  formulation  in  Eq.  (17). 

3.  Effect  of  Bed  Forms  on  Armoring.  An  active  river  bed  with  continuous 
formation  and  propagation  of  dunes  and  ripples  is  less  likely  than  a  plane  bed 
to  be  covered  with  a  top  layer  of  immobile  particles  forming  an  armor  coat. 
Instead  of  staying  and  accumulating  on  the  bed  surface  as  for  a  plane  bed, 
grains  of  different  sizes  within  a  subsurface  layer  (mixed  layer)  will  be 
continuously  mixed,  the  coarser  sediments  tending  to  be  deposited  (or  even 
transported  slowly  depending  on  the  flow  intensity)  close  to  the  bottom  or 
trough  of  a  dune,  as  illustrated  in  figure  4.  As  the  dune  moves  downstream. 


the  coarser  particles  at  the  bottom  may  be  temporarily  exposed  to  flow  and 
transported  as  bed  load  before  being  redeposited  again  in  the  trough,  or 
overlain  by  finer  grains  of  the  advancing  dune  immediately  following  from 
upstream.  A  vertical  gradation  in  sediment  sizes,  with  coarsest  fractions  at 
the  bottom  of  the  dune,  is  also  likely  to  develop.  A  formulation  of  this 
rather  complicated  segregation  process  among  different  grain  sizes  within  a 
dune  is  not  available  at  present. 

The  present  analysis  is  limited  to  development  of  a  heuristic  formulation 
of  the  reduction  in  the  quantity  of  coarser  sediments  accumulating  on  bed 
surface  due  to  the  presence  of  dunes.  It  is  assumed  that  this  reduction  can 
be  accomplished  by  reducing  the  coefficient  CA(t,k)  in  Eq.  (17)  from  its 
maximum  value  of  1.902  q^,  for  a  plane  bed,  by  multiplying  C/\  by  a  correction 
factor,  ad,  as  follows: 

CA  (t,k)  =  1.902  qk  ad  (18) 

in  which  ad  =  correction  factor  for  C/\  due  to  the  presence  of  dunes,  varying 

between  0  and  1.  oc,  =  1  corresponds  to  a  plane  bed,  and  a  =  0  implies 

d  d 

complete  segregation  of  materials  within  a  dune,  as  depicted  in  figure  4  in 
which  coarser  sediments  filter  down  to  the  dune  bottom.  It  is  further  assumed 
that  is  a  function  only  of  relative  dune  height,  Hd/d  (Hd  =  dune  height;  d 
=  flow  depth);  This  means  that  ad  =  1  for  Hd/d  =  0  (plane  bed);  and  «d  =  0 
for  the  maximum  value  of  Hd/d ,  i.e.,  no  armoring  is  possible  in  a  fully  active 
dune  bed.  In  general,  ad  is  a  function  of  dune  height,  dune  velocity,  and 
flow  and  sediment  characteristics  which  determine  the  internal  grain  size 
distribution  of  dunes.  It  is  assumed  herein  that  a,,  is  an  inverse  function  of 
relative  dune  height,  H  /d,  as  described  below. 


Allen  (1978)  developed  the  following  relation  for  relative  dune  height. 


2  3  4 

Vd  =  bo  +  bl  (i>  +  b2  +  °3  +  b4  (|)  l  °-25  <  0  <  1.5  (19) 

where  9  =  nondimensi onal  bed-shear  stress  =  T0/[p(s-l)gOj.g];  tq  =  bed-shear 
stress  =  pgdS;  bQ  =  0.079865;  b1  =  2.23897;  b^  =  -18.1254;  b3  =  70.9001;  and 
=  -88.3293.  Eq.  (19)  is  depicted  in  figure  5.  Using  the  conceptual  model 
described  in  the  previous  paragraph,  a  linear  relation  between  cy  and  H^/d 
(through  e)  is  assumed  as  shown  by  the  dotted  line  in  figure  5,  which  may  be 
expressed  as: 


“  1-° 


;  o  <  o 


1.10-9 

ad  =  TTTo-T 


;  9C  <  e  <  1.10 


(20) 


9-1.10 

ad  =  1.50-1.10 


;  1. 10  <  9  <  1. 50 


a.  =  1.0 

d 


;  9  >  1.50 


in  which  9  =  critical  value  of  9  at  incipient  sediment  motion,  obtained  from 

c  1 


Shields'  diagram.  The  limitation  of  this  formulation  for  c^,  Eq.  (20)  or 
figure  5,  is  recognized;  future  refinements  or  modifications  of  the  present 
formulation  may  be  necessary  as  better  knowledge  becomes  available  about  the 
development,  and  vertical  distribution,  of  grain  size  composition  within  bed 


4.  Effect  of  armoring  on  sediment  discharge,  friction  factor  and  mixed 
1 ayer.  Armoring  of  the  bed  surface  tends  to  reduce  the  sediment-transport 
capacity  of  flow,  change  the  roughness  characteristics  of  the  bed,  and 
diminish  the  average  dune  height  or  mixed-layer  thickness  which  represents  the 
zone  of  mixing  of  different  bed-material  grain  sizes.  These  interdependencies 
are  too  complicated  for  a  rigorous  formulation,  and  are,  therefore, 
approximated  by  the  following  relations  in  both  the  previous  and  present 
versions  of  IALLDVIAL: 

qsa  =  qs  (1  -  ClAf(t»  <21> 

f  =  fm  (1  -  C2Af(t))  ♦  faC2Af(t)  (22) 

Tm  'TV1  *  W*"  (23) 

in  which  qsa,  qs  =  sediment  discharge/unit  width  over  the  armored  bed,  with 
and  without  armoring,  respectively;  f  =  composite  friction  factor  of  an 
armored  bed;  fm,  fa  =  friction  factor  of  the  movable  part  and  the  armored  part 
of  the  bed,  respectively;  Tm  =  mixed-layer  thickness;  and  C^,  C£,  C3  = 
calibration  coefficients  varying  between  0  and  1.  Variables  qs  and  fm  are 
obtained  from  simultaneous  solution  of  the  sediment -di scharge  and  friction- 
factor  relations,  e.g.,  Eqs.  (1)  and  (2)  given  in  Section  II. A  of  the  report 
by  Karim  and  Kennedy  (1982).  Any  rigid-bed  friction-factor  relation,  e.g.. 
Col ebrook -White,  may  be  used  to  calculate  fa.  Calibration  coefficients,  C1# 
Cp,  and  C3  have  been  assigned  values  of  unity  in  the  present  analysis. 
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Red  armoring  and  its  effects,  as  described  by  Eqs.  (16)  through  (23), 
constitute  the  basic  armoring  procedure  included  in  the  present  version  of 


IALLIJVIAL.  In  the  course  of  the  present  investigation,  however,  two 
additional/alternative  procedures  were  developed  to  account  for  the  armoring 
of  the  bed  surface  in  an  indirect  way.  These  are  described  in  the  next  two 
sections. 

5.  Red-Layer  Procedure.  In  contrast  to  the  approach  described  in  the 
preceeding  sections,  this  procedure  does  not  divide  the  bed  surface  into  two 
parts,  the  armored  (no  transport)  and  unarmored  (erodible)  bed.  This 
procedure  assumes  that  a  top  layer  coarsens  faster  than  the  mixed  layer  (whose 
thickness  is  comparable  to  the  average  dune  height),  and  this  increased 
coarsening  of  the  top  layer,  if  incorporated  through  D50  into  the  sediment 
discharge  and  friction  factor  calculations,  should  yield  the  same  effect  as 
consideration  of  an  armor  coat  protecting  the  underlying  finer  materials  in 
the  mixed  layer.  This  concept  was  first  utilized  by  Park  and  Jain  (1983),  and 
is  presently  under  further  development  at  the  Iowa  Institute  of  Hydraulic 
Research.  The  procedure  described  below  is  based  on  this  concept,  but  differs 
considerably  from  Park  and  Jain's  analysis  in  its  detailed  formulation. 

A  bed  layer  of  thickness  yb  given  by  (Karim  and  Kennedy,  1981) 


*b  =  °50  *  uT  (24) 

*c 

is  assumed  at  the  top  of  the  mixed  layer  (whose  t! ickness  is  equal  to  average 
dune  height),  as  illustrated  in  figure  6.  In  Eq.  (24),  O50  =  median  size  of 
the  bed  layer;  u*  =  bed  shear  velocity;  and  u*c  =  critical  shear  velocity 
obtained  from  Shields'  diagram.  In  the  case  of  degradation,  materials  will  be 
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Figure  6.  Schematic  representation  of  bed-layer  procedure 
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first  scoured  from  the  bed  layer,  and  if  the  transport  capacity  for  a 
particular  grain  size  is  still  not  satisfied,  the  remaining  materials  of  that 
size  fraction  will  be  taken  out  of  the  mixed  layer.  At  the  end  of  the  current 
time  period,  the  composition  of  the  bed  layer  is  updated  by  assuming  that  the 
volume  of  sediments  taken  out  of  the  bed  layer  is  filled  in  by  materials  from 
the  underlying  mixed  layer.  In  the  case  of  aggradation,  the  bed-layer 
composition  is  updated  considering  the  volume  and  size  distribution  of 
sediments  deposited  above  it;  if  the  thickness  of  deposited  sediment  is  equal 
to  or  more  than  that  of  the  bed  layer  given  by  Eq.  (24),  the  composition  of 
the  bed  layer  will  be  the  same  as  that  of  the  deposited  sediments.  The  size 
distribution  of  the  mixed  layer  is  updated  continuously  taking  into  account 
degradation  or  deposition  in  each  time  interval;  the  volume  of  the  bed  layer, 
whose  thickness  is  negligible  compared  to  the  mixed  layer,  is  ignored  in  this 
cal cul ation. 

It  is  important  to  note  that  the  bed  layer,  as  described  above  and 
depicted  in  figure  6,  does  not  act  as  an  armor  coat  of  immobile  sediments. 
Neither  is  the  separate  existence  of  an  armor  coat  considered,  i.e.,  the 
armoring  factor  Af(t)  is  always  equal  to  zero  in  Eqs.  (21),  (22),  and  (23) 
which  explicitly  take  into  account  the  effect  of  armoring  on  sediment 
discharge,  friction  factor  and  mixed-layer  thickness.  The  median  size  of  the 
bed  layer  material  is  used  in  all  sediment  discharge,  friction  factor  and 
mixed-layer  thickness  calculations.  Because  the  bed  layer,  in  general,  will 
coarsen  faster  in  a  degrading  bed  than  the  mixed  layer,  this  procedure  is 
presumed  to  account  indirectly  for  the  effects  of  armoring. 

The  prediction  accuracy  and  validity  of  this  procedure  are  examined  in 


Chapter  IV. 


6,  Surface-Layer  Procedure.  This  procedure  retains  the  basic  features 
of  the  armoring  calculations  described  in  Sections  II.C.l  through  II. C. 4,  with 
the  following  two  differences:  (i )  the  median  size,  D^q,  used  in  the  sediment 
discharge,  friction  factor  and  mixed-layer  thickness  calculations  is  obtained 
from  a  weighted  average  (by  surface  area  exposed)  of  the  mixed-layer  and 
armor-coat  sediment  sizes;  and  (ii)  the  effects  of  armoring  on  sediment 
discharge,  friction  factor  and  mixed-layer  thickness  are  not  considered,  the 
armoring  factor  Af(t)  in  Eqs.  (21),  (22),  and  (23)  being  always  equal  to  zero. 

The  median  size  of  the  surface  layer,  denoted  by  D^qs*  is  calculated  from 

m 

°50s  '  D5Q»  0  -  V'»  \J(t)  Af  (C-k>  *  °k  (25) 

where  =  median  sediment  size  of  the  mixed  layer.  It  is  seen  from  Eq. 

(25)  that  O5 qs  will  be,  in  general,  equal  to  or  more  than  D5Q,,,  since  it 
includes  contributions  from  armoring  sediment  sizes.  It  is  assumed  in  this 
procedure  that  the  increased  value  of  D5qs  will  indirectly  account  for  the 
effects  of  armoring  on  sediment  discharge,  friction  factor  and  mixed-layer 
thickness. 

Effectiveness  of  this  procedure  will  be  examined  from  its  application  to 
the  Missouri  River  in  Chapter  IV. 


III.  I ALLUVIAL  COMPUTER  PROGRAM 


A.  Description  of  the  Program 

The  program  IALLUVIAL  has  been  reorganized  and  considerably  extended 
recently  to  incorporate  additional  features,  e.g.,  dynamic  storage  allocation 
to  optimize  memory  requirements,  variation  of  bed  material  composition  with 
depth,  and  sediment  inputs  from  tributaries  and  bank  erosion.  For  a  complete 
description  of  the  program  and  these  features,  reference  is  made  to  IIHR  (Iowa 
Institute  of  Hydraulic  Research)  Report  No.  250,  Addendum  to  IIHR  Report  No. 
250,  and  IIHR  Report  No.  267.  The  present  version  of  IALLUVIAL  consists  of 
MAIN  and  17  subroutines:  SMAIN,  INFLOW,  SEDBED,  START,  CHANGE,  DREDGE, 
WATPRO,  RESIS1 ,  TRASF ,  SECPRO,  SLOAD,  ARMOR,  HYSORT,  VSORT,  SHIELD,  TRIB,  and 
ERR0R1.  An  abbreviated  block  diagram  of  the  program,  with  brief  descriptions 
of  the  function  of  each  subroutine  and  the  flow  of  information  among  them,  is 
shown  in  figure  7.  Modifications  and  additions  to  the  computer  code  under  the 
present  study  are  briefly  described  in  the  next  section. 

B.  Modifications  and  Additions 

Major  modifications/additions  were  incorporated  into  the  subroutine  ARMOR 
to  include  the  additional  armoring  procedures  described  in  Chapter  II.  In 
addition,  this  includes  the  option  to  use  a  particular  armoring  procedure,  the 
option  to  specify  initial  armoring  of  bed,  and  the  option  for  calculating 
armoring  fractions  as  a  function  of  time  and  flow  conditions  or  for  specifying 
a  fixed  number  of  sediment  size  fractions  to  form  an  armor  coat.  The 
subroutine  INFLOW  was  added  to  allow  more  general  specification  of  water  and 
sediment  inflows  and  downstream  boundary  conditions.  An  additional  feature  of 
INFLOW  is  that  it  permits  linear  interpolation  for  estimating  input  values  at 
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Figure  7.  Summary  block  diagram  of  I ALLUVIAL 


intermediate  time  steps  from  two  successive  read-in  values  at  the  bounding 
time  points.  Appropriate  instructions  have  been  included  to  write  and  store 
major  results  from  the  output  of  the  program  in  disc  files,  which  can  be 
retrieved  later  for  graphical  analysis  or  other  purposes. 

A  minor  but  important  change  has  been  made  in  subroutine  HYSORT  to  modify 
the  procedure  for  updating  the  bed-material  composition.  With  reference  to 
Section  II. F  of  1 1  HR  Report  No.  250,  Eq.  (13a)  was  used  for  updating  bed- 
material  size  distribution  in  the  first  upstream  subreach  (immediately 
downstream  of  dam),  and  Eq.  (13)  was  used  in  the  remaining  subreaches.  This 
differential  treatment  was  based  on  the  argument  that  the  sorting  process  near 
the  dam  was  different  due  to  the  absence  of  bed  forms,  thus  leading  to  faster 
coarsening  compared  to  the  other  subreaches  in  which  beds  are  dominated  by  the 
formation  and  propagation  of  dunes.  This  argument  appears  to  be  less 
justifiable  in  view  of  the  present  analysis  of  armoring  procedures  described 
in  Chapter  II.  It  is  reasonable  to  remove  this  distinction  in  the  sorting 
procedure  and  let  the  armoring  procedure,  which  accounts  for  the  effect  of  bed 
forms  on  mixing  process  in  active  layer  through  bed  armoring,  take  care  of  the 
difference,  if  any.  Based  on  this  consideration,  the  computer  code  has  been 
modified  so  that  Eq.  (13)  (of  1 1  HR  Report  No.  250)  is  employed  consistently  to 
update  the  bed-material  size  distribution  of  a  degrading  bed  in  all 
subreaches.  This  means  that  the  bottom  of  the  mixed  layer  of  a  degrading  bed 
(refer  to  figure  2  of  1 1 HR  Report  No.  250)  always  moves  downward,  i .e. ,  as  the 
bed  degrades,  fresh  materials  entering  the  mixed  layer  always  have  the 
distribution  of  the  parent  bed  materials  (in  contrast,  use  of  Eq.  (13a)  means 
that  the  entering  materials  may  be  coarser  than  the  parent  materials  under 
certain  conditions).  The  significance  of  this  change  on  simulation  results  is 
discussed  in  Chapter  IV. 


IV.  APPLICATION  TO  THE  MISSOURI  RIVER 


A.  Introductory  Remarks 

The  objective  of  this  chapter  is  to  present  an  input  data  set 
representing  the  195-mile  reach  of  the  Missouri  River  between  Gavins  Point  Dam 
(GPD)  and  Omaha,  with  geometrical  and  bed-sediment  characteristics  prevailing 
at  the  time  of  the  dam  closure,  1956,  and  to  present  predicted  changes  in  bed 
and  water  surface  elevations  obtained  from  I  ALLUVIAL  for  the  20-year  period 
(1956-76)  since  closure  of  the  dam.  For  a  description  of  the  study  reach, 
reference  is  made  to  1 1 HR  Report  No.  250.  A  map  of  the  Missouri  River  basin 
and  schematic  representation  of  the  study  reach  are  shown  in  figures  8  and 
9.  The  study  reach  was  represented  by  idealized  rectangul ar-chann  1  sections 
and  bed-sediment  characteri sti cs ,  and  a  two-stage  water  discharge 
hydrograph.  These  input  data  are  described  in  the  next  section,  followed  by 
the  presentation  and  discussion  of  simulation  results  in  the  remaining 
sections  of  this  chapter. 

B.  Description  of  Input  Data 

The  basic  input  data  used  in  the  simulation  runs  is  the  same  as  that 
described  for  Case  IV.B  in  figures  XII-1  through  XI 1-5  of  the  Addendum  to  IIHR 
Report  No.  250.  These  are  presented  in  the  following  sections  for  ready 
reference. 

1.  Water  Discharge  Hydrograph.  The  upstream  water  discharge  from  Gavins 
Point  Dam  is  approximated  by  a  two-step  hydrograph:  36,000  cfs  during  the 
navigation  season  (April  to  November)  and  15,000  cfs  during  the  non-navigation 
season  (December  to  March).  Eight  tributaries  (James,  Vermillion,  Big  Sioux, 
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BOYER  RIVER  MILE  635.3 


IOWA-MISSOURI  BORDER  RIVER  MILE  553.0 


Figure  9.  Schematic  map  of  the  study  reach 
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Floyd,  Monona-Harri son.  Little  Sioux,  Soldier  and  Boyer)  join  the  Missouri 
River  between  Gavins  Point  Dam  and  Omaha,  as  shown  in  figures  8  and  9.  The 
discharge  hydrograph  for  each  tributary  was  assumed  to  consist  of  two  constant 
components:  a  high  discharge  (Q^)  for  the  first  four  months  (April  to  July) 
of  the  navigation  season  and  a  low  flow  (Q2)  for  the  remaining  eight  months  of 
the  year.  The  values  of  and  Q2  were  computed  such  that  Q2  =  Qj/4  while 
yielding  an  average  annual  flow  volume  equal  to  the  observed  value  for  the 
available  period  of  record  (U.S.  Army  Corps  of  Engineers,  1969).  The  annual 
discharge  hydrograph  thus  computed  and  used  in  all  simulation  runs  is 
summarized  in  table  2. 

2.  Geometric  and  Bed-Sediment  Data.  The  study  reach  is  represented  by 
rectangular  cross-sections,  with  widths  varying  between  1800  and  1020  feet 
from  Gavins  Point  Dam  to  RM  762.2  (upstream  of  Ponca),  varying  between  750  and 
625  feet  from  RM  752.4  to  703.7,  and  with  a  constant  width  of  00  feet  below 
R.M.  703.7  down  to  Omaha.  Bed  elevations  were  estimated  from  observed  water 
surface  slopes  (IJ.S.  Army  Corps  of  Engineers,  1981);  the  effect  of  cutoffs  is 
included  by  increasing  bed  slopes  in  the  affected  subreaches  (DeSoto  Bend  and 
California  cutoffs).  Bed-material  distribution  is  assumed  to  be  nearly  the 
same  in  the  whole  reach  with  constant  D^q  =  0.297  mm,  but  slightly  more  coarse 
fractions  in  the  subreaches  near  the  dam.  Geometric  and  bed-sediment 
characteristics  for  the  whole  reach,  G.P.  Dam  to  Omaha,  are  summarized  in 
tables  3  and  4. 

3.  Sediment  Inputs  from  Tributaries  and  Bank  Erosion.  Tributary 
sediment  discharges  are  computed  from  power-law  relations  of  the  form 
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Inflow  Point 


Upstream  (G.P.D.) 


Tri butaries 


Ri  ver 
Mi  1  e 


811.0 


Discharge  (cfs)  in  each  trimester 
April  August  December 

to  July  to  November  to  March 


36,000 


36,000 


15,000 


James 

800.5 

775 

192 

192 

Vermi 1 1 i on 

772.2 

240 

60 

60 

Big  Sioux 

734.2 

1,668 

417 

417 

Floyd 

731.2 

348 

87 

87 

Monona-Harrison 

670.0 

432 

108 

108 

Little  Sioux 

669.2 

1,560 

390 

390 

Soldier 

664.0 

248 

62 

62 

Boyer 

635.2 

590 

147 

147 

Total  for  all  tributaries 

5,862 

1,463 

1,463 

Total  (upstream 

&  tributaries) 

41,862 

37,463 

16,463 

I 
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Table  3 


Summary  of  Geometric  and  Bed  Sediment  Data 


Sec. 

No. 

Ri  ver 

Mi  1  e 

Channel 

Width 

(ft) 

Bed 

Elevation 
(ft.  MSI) 

Bed 

SI  ope 

(x  103) 

d50 

(mm) 

Bed 

Material 

Si  ze  Di  st. 

22 

810.9 

1800 

1161.34 

0.228 

0.297 

SOI 

(G.P.  Dam) 
21 

801.2 

1540 

1149.61 

0.228 

0.297 

SD2 

20 

791.4 

1800 

1137.87 

0.228 

0.297 

SD2 

19 

781.7 

1540 

1126.13 

0.212 

0.297 

S02 

18 

771.9 

1280 

1115.22 

0.212 

0.297 

SD2 

17 

762.2 

1020 

1104.30 

0.212 

0.297 

SD2 

16 

752.4 

750 

1093.39 

0.212 

0.297 

SD2 

is 

742.7 

725 

1082.48 

0.182 

0.297 

SD2 

14 

732.9 

700 

1073.11 

0.182 

0.297 

S03 

(Sioux  City) 

13  723.2 

675 

1063.74 

0.208 

0.297 

S03 

12 

713.4 

650 

1053.03 

0.208 

0.297 

SD3 

11 

703.7 

625 

1042.32 

0.177 

0.297 

SD3 

10 

693.9 

600 

1033.22 

0.177 

0.297 

S03 

9 

684.2 

600 

1024.10 

0. 215* (0. 185) 

0.297 

S03 

8 

674.4 

600 

1013.03 

0.185 

0.297 

SD3 

7 

664.7 

600 

1003.50 

0.177 

0.297 

S03 

6 

654.9 

600 

994.39 

0.177 

0.297 

SD3 

5 

645.2 

600 

985.28 

0.222*  (0.145) 

0.297 

SD3 

4 

635.4 

600 

973.85 

0.222*(0. 145) 

0.297 

SD3 

3 

625.7 

600 

962.43 

0.145 

0.297 

S03 

2 

615.9 

600 

954.96 

0.145 

0.297 

SD3 

(Omaha) 

1 

606.2 

600 

947.50 

-- 

-- 

-- 

increased  slope  in  cutoffs,  with  pre-cutoff  slopes  indicated  in  parentheses. 


**See  table  4  for  the  distribution  SOI,  SD2,  SD3 
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where  a^  and  are  coefficients  obtained  from  the  sediment  rating  curve  for 

the  tributary  at  node  i  ;  Qt  .  =  tributary  sediment  discharge  (tons/day)  at 

s » i 

node  i;  and  Q*:  =  tributary  water  discharge  (cfs)  at  node  i.  The  values  of  the 
coefficients  a^  and  b^  were  obtained  by  plotting  observed  monthly  total 
suspended  discharge  (including  wash  load)  against  average  monthly  water 
discharge  (U.S.  Army  Corps  of  Engineers,  1972;  Schultz  and  Matthew,  1977);  the 
values  of  a^  were  further  adjusted  to  exclude  sediment  fractions  less  than 
sand  size  (0.062  mm).  Table  5  lists  the  computed  values  of  a^  and  bj  for  each 
tributary.  Plots  of  sediment  rating  curves  for  each  tributary  (for  which  data 
were  available)  are  given  in  1 1  HR  Report  No.  267. 

Because  of  the  large  subreach  length  (9.75  miles)  used  in  the  present 
runs,  all  tributaries  could  not  be  represented  separately.  Due  to  the  small 
distance  separating  them,  the  Big  Sioux  and  Floyd  were  combined  and 
represented  as  one  tributary  located  at  node  no.  14.  In  the  same  way,  the 
Monona -Harri son  and  Little  Sioux  were  combined  at  node  no.  8  (node  numbers 
increase  in  the  upstream  direction).  Average  size  distributions  of  sediment 
discharge  for  each  tributary,  derived  from  available  data,  are  presented  in 
table  6. 

The  reach  between  Gavins  Point  Dam  and  Ponca  (about  58  miles)  is  assumed 
to  have  erodible  banks.  The  observed  rates  of  bank  erosion  vary  between  2.12 
and  5.58  acres/mile/year  (U.S.  Army  Corps  of  Engineers,  1981).  Assuming  a 
bank  height  of  ten  feet  containing  25%  of  sand  size  material  or  coarser  (based 
on  the  report  by  Gorene,  1960),  the  volumetric  rate  of  bank  erosion  varies 
from  657  to  1732  cft/mi  1  e/day .  Table  7  presents  the  rates  of  bank  erosion 
adopted  for  each  subreach  between  Gavins  Point  Dam  and  Ponca.  Size 


Table  5 


Summary  of  Sediment  Rating  Curves  Data  for  Tributaries 


Name  of 
Tri butary 


Ri  ver 
Mile 
(1960) 


Sediment  discharge  coefficients 


All 

Fractions 


Sand  Size 
Onl  v 


Location 
(RM  of  compu¬ 
tational  section) 


Vermi  1 1  i  on 
Big  Sioux 
Floyd 
Big  Sioux 


0.0299* 

.002652* 

1.5790* 

0.0299* 

.002652* 

1.5790* 

0.0299 

.002652 

1.5790 

.01327 

.001177 

1.9776 

.01534 

.001360 

1.6400 

Harrison 
Little  Sioux 
Monona- 
Harrison  X 
Little  Sioux 

Soldier 

Boyer 


670.0 

669.2 

.0371 

.004707 

.003345 

.003431 

2.1893 

2.0328 

— 

.00363 

.0002634 

2.1220 

664.0 

.002690 

.0001963 

2.8553 

635.2 

.001427 

.00002354 

2.6633 

Assumed  values 

Corresponds  to  sediment  discharge  in  tons/day  and  water  discharge  in  ft3/sec 


distributions  of  eroded  bank  materials  are  assumed  to  be  the  same  as  that  of 
the  initial  bed  material  in  each  subreach. 


C.  Presentation  of  Results 

This  section  presents  results  of  ten  simulation  runs  performed  using  the 
new  version  of  IALLUVIAL.  These  simulation  runs  are  used  to  present  a 
comparison  of  results  of  the  previous  version  of  IALL.JVIAL  with  those  of  the 
present  version,  to  present  results  for  different  armoring  procedures  included 
in  the  present  version,  and  to  investigate  the  sensitivity  of  the  pattern  of 
bed  and  water-surface  evolutions  in  the  study  reach  to  cutoff  effects, 
variations  in  bed-material  size  distribution,  and  the  quantity  of  coarser 
sediments  responsible  for  bed  armoring.  For  ready  reference,  these  simulation 
runs  are  designated  as  Run  Rl,  Run  R2,  etc.,  and  briefly  described  in  table  8. 

For  all  simulation  runs  listed  in  table  8,  the  subreach  length,  ax  =  9.75 
miles,  and  the  time  interval,  aT  =  30  days,  are  kept  constant.  The  downstream 
boundary  is  located  9.75  miles  downstream  from  Omaha  for  all  runs  except  R9 
and  RIO.  The  downstream  water  surface  elevations,  calculated  as  uniform  flow 
depths  for  the  given  water  discharge  and  initial  local  bed  slope,  are  fixed. 
The  computed  values  of  bed-elevation  changes  (az),  median  bed-material  size 
(050),  and  the  armor-coverage  factor  (ACF)  after  20  years  of  simulation  ( 1956- 
76)  for  the  runs  Rl  through  R8  are  presented  in  tables  9  through  11.  The 
results  of  runs  R9  and  RIO  are  presented  and  discussed  in  Section  IV. 0.9  and 
IV.0.10. 


The  computed  changes  in  bed  and  water-surface  elevations  (for  Q  =  36,000 
cfs),  changes  in  1)50  and  armor-coverage  factor  (ACF)  after  3,  8,  16  and  20 
years  of  simulation  for  runs  Rl  and  R2  are  plotted  in  figures  10  through  25. 
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Old  armoring  and  sorting  procedure  (near  dam)  in  the  previous 
version  of  IALLUVIAL.  Water  discharge  hydrograph,  geometric  and 
bed-sediment  characteristics  are  given  by  tables  2  through  7;  Ci  = 
C2  =  C3  =  1.0  in  Eqs.  (21),  (22),  and  (23),  CA(t,k)  =  constant  = 
0.50  and  l(t)  constant  =  7  (indicates  last  two  fractions  are  always 
immobile)  in  Eq.  (16);  includes  cutoffs. 

New  version  of  IALLUVIAL  with  same  input  data  as  R1  (tables  2 
through  7);  C/^t.k)  and  l(t)  calculated  internally  by  the  new 
armoring  procedure;  =  C2  =  C3  =  1.0  in  Eqs.  (21),  (22),  and 
(23);  includes  cutoffs. 

Same  as  Run  R2,  with  C^  =  C2  =  C3  =  0.80  ^s*  (21),  (22),  (23). 

Same  as  Run  R2,  without  cutoffs. 

Same  as  Run  R2,  with  extra  3%  armoring  fractions  (4  feet  below  bed) 
in  subreaches  near  Sioux  City. 

Same  as  Run  R2,  with  coarser  bed  material  (D50  =  0.385  mm)  in 
subreaches  RM  684.15  to  742.65. 

Same  as  Run  R2,  with  armoring  procedure  replaced  by  bed-layer 
procedure. 

Same  as  Run  R2,  with  armoring  procedure  supplemented  by  surface- 
layer  procedure. 

Same  as  Run  R2,  with  the  downstream  boundary  moved  48.75  miles 
further  downstream. 

3-year  run,  with  the  same  input  as  R2,  to  simulate  the  effects  of 
DeSoto  and  California  cutoffs. 
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uted  Bed-Elevation  Changes*  (feet)  for  Indicated  Run 


Node  River  R1 
No.  Mile 


R2  R3 


R4  R5  R6 


R8  Obser.  Comp. 
Changes  Changes 
inW.S.  inW.S. 
Elev.  Elev.  for 
Run  R2 
(ft)  (ft) 


810.9  3.63 
(GPD) 

5.45 

6.07 

5.22 

5.54 

5.52 

4.05 

2.25 

5.21 

801.1  3.25 

4.89 

5.30 

5.84 

4.88 

4.89 

2.29 

2.33 

4.21 

791.4  1.24 

2.25 

2.33 

2.73 

2.23 

2.12 

-0.43 

1.00 

2.21 

781.6  1.27 

1.87 

1.76 

2.37 

1.85 

1.68 

0.12 

2.18 

3.5i 

771.9  2.17 

2.73 

2.68 

3.20 

2.59 

2.50 

0.59 

4.28 

762.  1  3.35 

4.73 

4.48 

5.07 

4.46 

4.04 

3.07 

5.89 

4.81 

752.4  5.36 

6.81 

6.66 

7.09 

6.29 

5.07 

6.23 

7.49 

5.91 

(Ponca) 

5. 9 

742.6  5.06 

6.00 

5.36 

5.68 

5.29 

3.37 

4.05 

6.11 

732.9  6.56 

6.79 

5.85 

6.27 

6.05 

4.15 

4.43 

6.52 

6.01 

(S.  City) 

723.1  7.92 

7.18 

6.87 

6.78 

7.14 

5.44 

6.37 

7.31 

7.7i 

713.4  6.97 

6.11 

6.34 

6.06 

6.76 

5.55 

4.03 

6.75 

703.6  5.80 

5.14 

5.40 

5.22 

6.07 

5.00 

5.74 

5.81 

4.9i 

693.9  6.16 

6.26 

5.83 

5.14 

7.50 

7.15 

6.34 

6.37 

5.21 

(Oecatur) 

684.1  6.40 

6.58 

6.24 

6.51 

7.65 

8.76 

7.12 

7.78 

3.3i 

674.4  4.81 

4.55 

4.67 

5.14 

5.58 

6.06 

5.81 

5.66 

3.21 

664.6  4.52 

3.83 

4.46 

1.97 

4.13 

4.14 

1.98 

3.58 

4.4 

654.9  4.52 

4.01 

4.53 

0.70 

3.98 

3.93 

2.65 

2.95 

3.71 

645.  1  5.  79 

5.60 

5.81 

-0.05 

5.72 

5.97 

2.03 

4.81 

2.0i 

635.4  3.89 

3.65 

3.89 

1.61 

2.53 

3.26 

0.46 

3.80 

625.6-0.45 

-0.50 

-0.46 

2.29 

-1.25 

-1.37 

-0.52 

-0.43 

-1.9 

615.9-0.35 

-0.32 

-0.36 

1.85 

0.10 

-0.36 

0.83 

-0.36 

(Omaha) 

606.1  0.44 

0.48 

0.44 

1.46 

0.86 

0.55 

1.42 

0.44 

0.0 

E 
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■material  composition  for  Run  R1  after  16  years 


Figure  20.  Change  in  bed  and  water-surface  elevations  for  Run  R2  after  16  years 


Figure  22.  Change  in  bed-material  composition  for  Run  R2  after  3  years 
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-material  composition  for  Run  R2  after  20  years 


These  time  intervals  (3,  8,  16,  and  20  years)  are  selected  because  changes  in 
water-surface  elevations  were  measured  at  these  times;  these  observed  values 
are  also  included  in  figures  for  comparison.  For  the  remaining  six  runs,  R3 
through  R8,  the  computed  changes  in  bed  and  water-surface  elevations  after  20 
years ,  and  changes  in  053  and  ACF  after  3,  8,  16,  and  20  years  of  simulation, 
are  presented  in  figures  26  through  55.  It  may  be  noted  here  the  computed 
changes  in  water-suface  elevations  shown  in  these  figures  are  calculated  for  a 
discharge  of  36,000  cfs  at  the  Gavins  Point  Dam.  Finally,  the  computed 
temporal  evolutions  of  the  bed-elevation  changes  for  all  eight  runs,  R1 
through  R8,  are  shown  in  figures  56  through  63  at  5  locations:  RM  810.9 
(Gavins  Point  Dam),  RM  752.4  (Ponca),  RM  732.3  (Sioux  City),  RM  693.9 
(Decatur),  and  RM  615.9  (Omaha).  A  comparison  of  the  results  among  different 
simulation  runs,  and  with  the  corresponding  observed  values  where  available, 
is  presented  in  the  next  section. 

D.  Comparison  and  Discussion  of  Results 

The  results  presented  in  the  preceeding  section  are  evaluated  by 
comparison  with  the  observed  changes  in  water-surface  elevations  (Ah)  for  Q  = 

29,500  cfs  at  Yankton,  and  the  observed  mean  bed-material  size  (D50)  at 
different  locations  along  the  study  reach,  shown  in  figures  64  and  65, 
respectively.  It  is  seen  in  figure  64  that  the  decline  in  water-surface 
elevation  for  the  period  1957-77  decreases  from  about  5.5  ft  at  Gavins  Point 
Dam  to  about  2.5  ft  at  RM  790.0,  then  increases  to  about  8  ft  at  RM  725.0 
(near  Sioux  City,  RM  732.9),  and  again  decreases  to  0  ft  at  RM  642.0  (near 
Blair);  from  there  to  Omaha  a  rise  in  water-surface  elevation  of  about  1.5  ft 
is  observed.  Significant  bed-material  coarsening,  from  about  0.24  -  0.40  mm 
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bed-material  composition  for  Run  R3  after  16  years 


•material  compos 


•material  composition  for  Run  R4  after  16  years 


•surface  elevations  for  Run  R5  after  20  years 
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Figure  56.  Temporal  evolution  of  bed  elevation  for  Run  R1 


Figure  57.  Temporal  evolution  of  bed  elevation  for  Run  R2 
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Figure  61.  Temporal  evolution  of  bed  elevation  for  Run  R6 
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Temporal  evolution  of  bed  elev-’tion  for  Run  R7 
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in  1955  to  1.5  -  4.0  mm  in  1974,  is  evident  only  in  the  5-mile  sub' ear.-', 
downstream  from  the  dam  (figure  65).  The  rest  of  the  reach  to  Omaha  indu.-te* 
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slight  coarsening,  and  even  slight  decreases  in  D50  at  few  locations,  wit  th 
range  of  O50  between  0.25  and  0.50  mm.  The  results  for  each  of  +he  te 
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simulation  runs  described  in  table 

8  are  discussed  and  compared 
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observed 

values  in  the  following 

sections. 

simulation  run  Rl 

* 

1. 

Discussion  of  Run  Rl. 

The 

corresponds 

to 

the  old 

9  . 

. 

version 

of  IALLUVIAL,  before 

the 

modifications  in 

armoring  and 

sorting 

.*»/ 

T  '  S 

procedures  described  in  Chapter  II  were  incorporated  in  the  present  ..on.p^tc  • 
code.  Computed  and  observed  (where  available)  changes  in  bed  and  water- 
surface  elevations  and  in  bed-material  distributions  along  the  study  reach  at 
different  times  are  shown  in  figures  10  through  17.  Computed  temporal 
evolution  of  the  river  bed  at  different  locations  is  given  in  figure  56.  Some 
of  the  notation  appearing  in  these  and  other  figures  is  defined  below: 
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COMP.  CH. 
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ARMORING  FACTOR 


change  in  bed  elevation  (ft)  (positive  for  degradation  and 
negative  for  aggradation); 

change  in  water-surface  elevation  (ft)  (positive  for 
decline  and  negative  for  rise); 

computed  change 

observed  change 

computed  bed-material  median  size  (D50) 

computed  surface-! ayer  mean  sediment  size  =  Df^  given  by 

Eq.  (25) 

observed  bed-material  median  size  (D50) 

armor-coverage  factor  (fraction)  =  Af(t)  given  by  Eq.  (16; 


"V’l 


i 


.v. 


•  s 

3 

;•>] 

4 

■V" 

:v: 


105 


These  figures  show  reasonable  agreement  between  the  computed  and  measured 
values  of  changes  in  water-surface  elevations  and  median  bed-material  size 
after  20  years  of  simulation  (1957-77).  Further  discussion  of  these  results 
as  compared  to  those  of  run  R2  (present  version  of  I  ALLUVIAL  with  the  same 
input  data  as  Rl)  is  given  in  the  next  section. 

2.  Discussion  of  R2.  Run  R2  is  the  basic  20-year  (1957-77)  simulation 
of  the  Missouri  River  downstream  of  Gavins  Point  Dam  to  Omaha,  with  the 
present  version  of  IALLUVIAL;  the  remaining  simulation  runs  are  compared  with 
R2  to  investigate  the  effects  of  cutoffs,  variation  in  bed-material  size 
distributions,  variation  in  calibration  coefficients,  and  different 
alternative  bed  armoring  procedures.  Figures  18  through  25  and  Figure  57 
present  the  various  results  of  simulation  for  this  run.  It  is  seen  from 
figures  18  through  21  that  the  computed  changes  in  water-surface  elevations 
are  in  good  agreement  with  the  observed  values  after  16  and  20  years  of 
simulation  (figures  20,  21),  but  agreement  is  less  than  satisfactory  for 
simulations  after  3  and  8  years  (figures  18,  19);  the  deviations  between  the 
computed  and  observed  values  (figures  18,  19)  are  significant  particularly 
near  the  dam  and  near  the  locations  of  DeSoto  Bend  (RM  644.2  -  RM  641.8)  and 
California  (RM  651.0  -  649.3)  cutoffs.  This  slow  response  of  the  model  in  the 
earlier  years  may  be  attributed  to  the  use  of  idealized  cross-sections  and 
bed-material  size  distributions  for  the  representation  of  the  entire  study 
reach,  large  discretization  grids  in  space  and  time  (ax  =  9.75  miles  and  At  = 
30  days),  and  the  approximations  in  specifying  downstream  boundary  and  initial 
conditions  and  in  representing  the  cutoffs  (cutoffs  were  represented  in  input 
data  by  increasing  initial  bed  slopes  in  the  affected  subreaches).  An  attempt 
was  made  to  improve  the  input  data  for  the  latter  conditions  (i.e.,  downstream 


boundary  and  initial  conditions,  and  representation  of  cutoffs),  and  the 
results  are  presented  in  Section  IV. 0.10  for  run  RIO.  As  can  be  seen  from 
figure  25  and  table  9  (see  computed  changes  in  bed  and  water-surface 
elevations),  significant  differences  between  changes  in  bed  and  water-surface 
elevations  exist  at  several  locations;  this  is  to  be  expected  because  the 
latter  is  a  function  of  the  former  as  well  as  of  the  friction  factor  which,  in 
turn,  depends  on  sediment  discharge  and  bed-material  composition;  comparison 
of  changes  in  bed  and  water-surface  elevation,  therefore,  should  be  viewed  in 
this  perspective. 

Computed  changes  in  bed-material  composition  after  3,  8,  16,  and  20  years 
are  plotted  in  figures  22  through  25.  These  plots  show  median  bed-material 
size  (D50),  mean  size  of  the  surface  layer  (D50S,  given  by  Eq.  (25)),  and  the 
armor-coverage  factor  (ACF,  expressed  in  fraction  of  area  covered).  It  is 
seen  from  figure  25,  which  also  shows  the  observed  values  of  D50,  that  the 
computed  and  observed  values  of  D50  are  in  good  agreement  except  near  the  dam 
where  the  observed  D^q  (curve  3)  is  much  coarser  than  the  corresponding 
computed  value  (curve  1),  and  that  the  armoring  factor  (ACF)  is  close  to  1.00 
near  the  dam  and  diminishes  rapidly  in  the  downstream  direction.  The  surface- 
layer  mean  size,  0505.  which  is  related  to  the  armoring  factor  (Eq.  25), 
accordingly  increases  rapidly  with  increased  armoring  in  the  upstream 
direction  near  the  dam.  The  computed  bed -material  composition  after  20  years 
in  the  subreach  near  the  dam,  thus,  consists  of  two  distinct  layers:  the  top 
layer  or  the  armor  coat  with  mean  sediment  size  of  about  10  mm,  and  the 
underlying  mixed  layer  with  mean  size  of  0.46  mm;  this  two-layer  composition 
is  depicted  in  figure  66.  Two  photographs  of  the  Missouri  River  bed  taken  by 
the  third  author  in  March,  1980  (when  controlled  release  from  Gavins  Point  Dam 
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Figure  66.  Schematic  representation  of  armored  bed  near  Gavins  Point  Dam 


a.  Near  RM  810.5,  opposite  the  boat  b.  Near  RM  807.3,  about  4  miles 

launching  pad  near  Gavins  Point  Dam  downstream  of  Gavins  Point  Dam 


Figure  67.  Photographs  of  the  Missouri  River  bed  armoring  (March,  1980) 


was  interrupted)  are  given  in  figure  67.  The  areal  extent  of  bed  armoring  is 
shown  in  the  photographs  of  figure  68.  The  similarity  in  the  appearance  of 
the  bed  composition  between  figures  66  and  67  is  immediately  apparent. 

The  thickness  of  the  top  armor  layer  (figure  67)  appears  to  be  roughly 
one-diameter  of  the  coarsest  sediment  size,  which  is  consistent  with  the 

observation  made  by  Harrison  (1950)  from  his  laboratory  experiments.  It  may 
be  argued  that  the  reported  observed  value  of  D50  as  equal  to  2.50  mm  (figures 
25  and  65),  as  compared  to  the  computed  value  of  0.46  mm  for  the  underlying 
mixed  layer  (figure  25),  is  a  result  of  the  sampling  procedure  and,  more 

particularly,  is  a  function  of  the  depth  of  sampling.  For  example,  if  the 
sample  was  scooped  such  that  it  contained  equal  volumes  of  the  top  armored 
layer  and  the  underlying  finer  sediments,  the  median  size  of  the  sample  would 
be  approximately  the  average  of  the  mean  size  of  the  top  layer  and  the 
underlying  materials.  If  on  the  otherhand,  the  reported  D50  of  2.50  mm  near 
the  dam  (figure  25)  represents  only  the  sediments  lying  below  the  top  armor 
layer,  this  significant  coarsening  of  the  bed  material,  with  D50  increasing 
from  about  0.40  to  2.50  mm,  may  be  a  result  of  the  degrading  river  bed 

encountering  coarser  sediment  layers  in  the  alluvium  below  the  bed  elevation 
prevailing  at  the  time  of  dam  closure  (1957).  In  all  simulation  runs 
presented  herein,  it  was  assumed  that  the  underlying  alluvium  has  the  same 
size  distribution  as  given  in  tables  3  and  4;  this  coarsening  of  the  bed 
materials  below  the  armor  coat  would  not,  therefore,  be  reflected  in  the 

present  results.  It  is  believed  that  the  simulated  bed  composition  given  in 

figure  25  and  illustrated  in  figure  66  is  a  reasonable  representation  of  the 
observed  bed  composition  depicted  in  figure  67. 
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The  evolution  of  the  river  bed  elevation  in  20  years  since  the  closure  of 
the  dam  in  1957  at  different  locations  along  the  study  reach  is  shown  in 
figure  57.  It  is  seen  from  this  figure  that  bed  degradation,  after  an  initial 
increased  rate,  slows  down  at  the  end  of  20  years  at  Gavins  Point  0am  (RM 
810.9)  and  at  RM  752.4  (Ponca).  The  river  bed  at  Omaha  (RM  615.9)  showed 
aggradation  of  about  1.5  feet  in  the  first  5  years,  then  remained  stable  for 
about  7  years,  followed  by  degradation  in  the  next  2.5  years,  remaining 
unchanged  since  then.  This  trend  in  degradation,  at  these  three  locations  (RM 
810.9,  752.4,  and  615.9)  is  in  reasonable  agreement  with  observed  trends.  On 
the  other  hand,  as  indicated  in  figure  57,  the  river  beds  at  Sioux  City  (RM 
732.3)  and  Decatur  (RM  693.9)  appear  to  experience  degradation  at  an  increased 
or  nearly  constant  rate  at  the  end  of  the  20-year  simulation.  This  trend  in 
degradation,  particularly  at  Sioux  City,  is  not  in  conformity  with  the 
observed  trend  as  shown  in  figure  69;  it  is  seen  from  this  figure  that  the 
water  surface  elevation  (for  Q  =  30,000  cfs),  after  declining  steadily  up  to 
1973,  levelled  off  until  1975,  declined  2  feet  in  1976,  then  generally  leveled 
off  since  then  up  to  1981.  This  levelling  off  in  water  surface  elevation  at 
Sioux  City  around  1976  (figure  69)  is  perhaps  caused  by  the  degrading  bed 
encountering  coarser  sediments,  or  by  the  presence  of  increased  amounts  of  the 
coarsest  fractions  (which  may  armor  the  bed  partly)  in  the  parent  bed 
materials.  This  possibility  is  investigated  in  the  simulations  for  runs  R5 
and  R6  and  the  results  are  presented  in  Sections  IV. D. 5  and  IV. D. 6. 

3.  Discussion  of  Run  R3.  Simulation  run  R3  has  the  same  input  data  as 
R2,  except  that  the  armoring  correction  coefficients  for  sediment  discharge, 
friction  factor,  and  mixed-layer  thickness  --  Cj,  C2,  and  C3  given  by  Eqs. 
(21),  (22),  and  (23),  respecti vely--are  each  assigned  a  value  of  0.80 


(compared  to  1.00  for  R2  and  other  runs).  The  significance  of  these 
coefficients  may  be  interpreted  in  two  ways:  first,  since  the  forms  of  Eqs. 
(21),  (22),  and  (23)  are  not  known  and  the  assumed  linear  form  is  one  of  many 
possibilities,  the  coefficients  may  be  used  as  calibration  parameters; 
secondly,  values  of  the  coefficients  less  than  unity,  say  0.80,  mean  that  the 
armor  coat  (full  or  partial)  is  only  80%  effective  in  preventing  the 
underlying  finer  materials  from  being  transported  by  the  flow.  The  results 
for  this  run  are  shown  in  figures  26  through  30,  and  58.  A  comparison  of 

these  figures  with  those  for  run  R2  shows  no  significant  difference,  except 
near  the  dam  where  the  bed  experienced  a  greater  depth  of  degradation. 
Specifically,  figures  57  and  58  indicate  that  both  the  amount  and  rate  of 
degradation  at  RM  810.9  (Gavins  Point  Dam)  are  significantly  greater  for  run 
R3,  with  no  appreciable  effect  at  downstream  locations.  This  result  is 

consistent  with  the  fact  that  only  the  subreaches  near  the  dam  experienced  bed 
armoring,  and  so  the  effect  of  changing  the  coefficients  will  be  felt  only  in 

these  subreaches.  A  value  of  0.80  for  Cj  means  that  the  finer  sediments  in 

between  the  larger  particles  continue  to  be  lifted  and  transported  by  the  flow 
and,  therefore,  degradation  will  not  stop  completely  (unless  slope  reduction 
makes  the  flow  velocity  too  small  to  transport  any  sediment)  even  when  the  bed 
is  completely  armored,  as  is  shown  by  curve  1  of  figure  58. 

4.  Discussion  of  Run  R4.  This  run  has  the  same  input  data  as  run  R2, 
except  that  the  initial  bed  slopes  (table  3)  are  reduced  in  the  subreaches 
from  RM  635.4  to  RM  654.9  (DeSoto  Bend  and  California  cutoffs,  completed  in 
1960),  and  from  RM  674.4  to  RM  684.2  (Middle-Lower  Decatur  cutoff,  completed 
in  1961),  to  remove  the  effects  of  these  cutoffs.  The  computed  changes  in  bed 
and  water-surface  elevations,  and  bed-material  composition  in  the  study  reach. 


are  presented  in  figures  31  through  35  and  59.  A  comparison  of  figures  31  and 

21  (for  run  R2)  shows  that  the  introduction  of  cutoffs  caused  increased 

degradation  in  reaches  upstream  and  increased  aggradation  (or  reduced 
degradation)  in  reaches  downstream  of  the  cutoffs;  in  particular,  the  cutoffs 
appear  to  cause  a  general  drop  in  water-surface  elevation  of  3  to  4  feet  in 
the  reach  between  approximately  RM  640.0  and  RM  680.0.  The  effects  of  the  two 
cutoffs  cannot  be  separated  because  of  interaction  between  them;  the  resultant 
degradation  shown  in  figure  21  in  the  reach  between  them,  roughly  RM  640.0  to 
RM  680.0,  is  the  combination  of  two  opposing  effects--the  tendency  of 
degradation  induced  by  the  OeSoto  and  California  cutoffs  being  counteracted 
partly  by  the  deposition  caused  by  the  Middle-Lower  Decatur  cutoff. 

The  downstream  and  upstream  extent  of  the  effects  of  the  cutoffs  are 
clearly  demonstrated  by  comparison  of  figures  59  and  57  (for  run  R2);  the 
general  aggradation  (or  little  change  in  bed  elevation)  at  Omaha  (RM  615.9) 

appears  to  be  partly  caused  by  the  downstream  effect  of  the  DeSoto  Bend 

cutoff.  The  immediate  upstream  effect  is  illustrated  by  curve  4  in  these 
figures,  which  indicates  that  degradation  at  Decatur  (RM  693.9)  picked  up 

considerably  due  to  the  cutoffs;  further  upstream,  Sioux  City  (RM  732.3)  shows 
a  slight  increase  in  degradation,  while  the  degradation  at  Ponca  (RM  752.4) 

appears  to  level  off  after  the  accelerated  increase  in  earlier  years.  The 

apparent  decrease  in  degradation  upstream  of  Ponca  for  run  R2  (figure  21) 
compared  to  run  R4  (figure  31  and  table  9)  is  somewhat  intriguing;  this  is, 
perhaps,  the  result  of  dynamic  interaction  between  the  degradation  wave 

propagating  downstream  from  the  dam  and  that  moving  upstream  from  the 
cutoffs.  In  summary,  these  results  show  significant  effects  of  the  cutoffs  on 
degradation/aggradation  pattern  in  the  study  reach. 


5.  Discussion  of  Run  R5.  The  effect  of  vertical  variation  in  subsurface 


bed -material  composition  on  bed  evolution  is  investigated  in  run  R5.  The 


parent  bed-material  distribution  in  three  subreaches,  RM  713.40  to  RM  742.65, 


near  Sioux  City  (RM  732.3)  is  assumed  to  contain  3%  extra  of  the  coarsest  two 


fractions  4  feet  below  the  initial  bed  elevation,  as  given  in  table  12  (note 


that  D50  remains  the  same);  other  input  data  are  the  same  as  those  of  run 


R2.  The  results  for  this  run  are  presented  in  figures  36  through  40,  and 


60.  It  is  seen  from  table  11  and  figure  40  that  the  river  bed  near  Sioux  City 


becomes  slightly  armored  (about  6%),  which  reduces  degradation  in  these 


subreaches  (compared  to  run  R2)  by  about  0.7  feet  maximum;  this  reduction  is. 


however,  accompanied  by  an  increase  in  degradation  of  comparable  magnitude  for 


about  50  miles  downstream.  The  same  trend  is  shown  in  figure  60,  which 


indicates  a  reduction  in  degradation  at  Sioux  City  and  Ponca  (RM  752.4),  but 


an  increase  at  Decatur  (RM  693.9);  effects  on  bed  elevations  at  the  Gavins 


Point  Dam  and  Omaha  (RM  615.9)  are  negligible. 


Thus  an  increase  in  armoring  fractions  by  only  3%  does  have  a 


significant,  but  not  dramatic,  effect  on  the  degradation  pattern.  The  river 


bed  at  Sioux  City  is  in  an  active  state  with  continuous  formation  and 


propagation  of  dunes,  with  sufficient  velocity  to  transport  the  coarser 


fractions  (listed  in  table  12),  or  to  prevent  their  accumulation  on  the  bed 


surface  because  of  the  mixing  process  associated  with  moving  bed  forms  (as 


discussed  in  Chapter  II).  For  example,  the  same  increase  in  armoring 


fractions  in  subreaches  near  the  dam  (less  active  bed  with  lower  velocity) 


would  lead  to  a  more  pronounced  increase  in  bed  armoring  and  consequent 


reduction  in  degradation.  The  effect  of  coarser  bed  material  (larger  D5Q)  is 


discussed  in  the  next  section. 
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6.  Discussion  of  Run  R6.  This  run  has  the  same  input  data  as  run  R2, 

except  that  a  part  of  the  study  reach,  RM  684.15  to  RM  742.65,  has  coarser  bed 
material  with  O50  =  0.385  mm  (size  distribution  given  in  table  12)  as  compared 
to  D50  =  0.297  mm  in  the  rest  of  the  study  reach.  The  results  of  the 

simulation  with  this  input  data  are  shown  in  figures  41  through  45,  and  61.  A 
comparison  of  the  computed  changes  in  bed  and  water-surface  elevations  after 
20  years,  shown  in  figure  41,  with  the  corresponding  plot  for  run  R2,  figure 
21,  clearly  indicates  a  decrease  in  degradation  by  as  much  as  2.6  ft  in  the 
subreaches  with  coarser  bed  sediments,  and  an  increase  in  degradation  of 
comparable  magnitude  in  a  few  downstream  subreaches.  This  same  trend  is  shown 
by  figure  61,  in  which  both  the  rate  and  magnitude  of  degradation  are 

decreased  at  Ponca  (RM  752.4,  curve  2)  and  Sioux  City  (RM  732.3,  curve  3),  and 
increased  at  Decatur  (RM  693.9,  curve  4),  as  compared  with  the  corresponding 
plot  for  run  R2,  figure  57.  The  computed  bed-material  Dsq's  after  20  years, 
as  seen  from  figure  45,  are  slightly  larger  than  the  observed  values  for  the 
subreaches  in  which  coarser  bed  sediments  were  used  as  input.  Thus,  these 
results  show  significant  effect  of  variation  in  initial  bed-material 
composition  on  the  pattern  of  degradation/aggradation  in  the  study  reach. 

7.  Discussion  of  Run  R7.  The  preceeding  six  simulation  runs  used  the 

bed  armoring  procedures  described  in  Sections  II.C.l  through  II. C. 4. 
Simulation  R7  replaces  this  armoring  scheme  with  the  bed-layer  procedure,  in 
which  a  bed  layer  is  assumed  to  form  at  the  top  of  the  mixed  layer,  as 
described  in  Section  II. C. 5.  The  assumption  in  this  procedure  is  that  the  bed 
layer,  being  much  thinner  than  the  mixed  layer,  would  coarsen  faster  and 

therefore  would  indirectly  take  into  account  the  effect  of  bed  armoring  by 

using  the  bed-layer  sediment  size  in  sediment  discharge  and  friction  factor 
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Table  12 


Bed-Material  Composition  for  Run  R5  and  Run  R6 


For  Run  5:  Vertical  Variation  in  Bed-Material  Distribution  near  Sioux  City 


.Subreach  Depth  below 
initial  bed 


Fraction  of  sediment  size  (mm)  interval 
.062-  .149-  .297-  .590-  1.190-  2.400-  4.800-  9.520-  D50 

.149  .297  .590  1.190  2.400  4.800  9.520  19.100  (mm) 


RM  713.4  Upto  4  feet 
to  be! ow  bed 

RM  723.15 

More  than 
4  feet  below 


0.105  0.395  0.350  0.085  0.035  0.030  0.0  0.0  0.297 

0.105  0.395  0.350  0.085  0.025  0.010  0.005  0.025  0.297 


RM 

732.90 

Upto  4  feet 

0.105 

0.395 

0.350 

0.085 

0.035 

0.027 

0.003 

0.0 

0.297 

to 

below  bed 

RM 

742.65 

More  than 

4  feet  below 

0.105 

0.395 

0.350 

0.085 

0.025 

0.007 

0.008 

0.025 

0.297 

For  Run  R6:  Bed-Material  Distribution  in  RM  684.15  to  RM  742.65 


calculations.  The  same  input  data  as  in  run  R2  are  used  in  this  run.  Figures 
46  through  50,  and  62  present  the  results  of  this  simulation.  It  is  seen  from 
figures  47  through  50  that  the  computed  bed-layer  D50  (curve  1)  becomes 
alternately  very  coarse  (more  than  1  mm)  and  fine  along  the  whole  reach;  this 
oscillation  was  found  to  be  larger  in  early  years  with  gradual  attenuation 
with  time.  This  wide  variation  in  D50  along  the  reach  is  not  in  conformity 
with  the  observed  trend  (figure  65),  in  which  D5Q  varies  within  a  very  narrow 
range  of  0.3  to  0.45  mm  (except  in  the  subreach  near  the  dam). 

This  wide  variation  in  D^q  is  reflected  in  the  results  for  computed 
changes  in  bed  and  water-surface  elevations  given  in  figure  46,  because  of  the 
interdependence  between  sediment  discharge  and  friction  factor  used  in  the 
formulation  of  IALLUVIAL.  In  particular,  the  computed  and  observed  changes  in 
water-surface  elevations  after  20  years,  plotted  in  figure  46,  show  rather 
poor  agreement;  this  is  a  direct  result  of  poor  agreement  between  the  computed 
and  observed  059'$.  The  reason  for  the  apparent  oscillation  in  D50  values 
along  the  reach  is,  perhaps,  the  over-sensitivity  of  the  size  distribution  of 
bed-layer  materials,  often  containing  very  small  amounts  of  certain  size 
fractions,  to  even  small  amounts  of  scour/deposition  in  a  particular  time 
period.  These  results  show  that  this  procedure  requires  further  refinement 
before  realistic  predictions  of  bed-material  composition  and  evolution  of  bed 
and  water-surface  elevations  can  be  made. 

8.  Discussion  of  Run  R8.  Th.s  run  uses  the  surface-layer  procedure 
described  in  Section  II. C. 6.  Normal  armoring  procedures  are  used  to  compute 
the  armor-coverage  factor,  which,  in  turn,  is  used  to  compute  the  surface- 
layer  mean  sediment  size,  8595,  by  Eq.  (25);  however  no  correction  for 
armoring  is  made  on  sediment  discharge,  friction  factor,  and  mixed-layer 


thickness  (i.e.,  Cx  =  c2  =  C3  =  0  in  Eqs.  (21),  (22),  and  (23)).  D50s, 

instead  of  O50  of  the  mixed  layer,  is  used  in  all  sediment  discharge  and 
friction  factor  calculations.  The  dependence  of  D5qs  on  armoring,  through  Eq. 
(25),  is  assumed  to  account  for  the  effect  of  armoring  on  sediment  discharge 
and  friction  factor.  Figures  51  through  55,  and  63  present  the  results  for 
run  R8.  It  is  seen  from  figures  52  through  55  that  D50S  (curve  2)  near  the 
dam  rises  rapidly  with  time,  slowing  down  both  degradation  and  armoring  near 
the  dam;  after  20  years,  degradation  at  the  dam  is  only  2.25  feet  and  the 
armor-coverage  factor  is  11%,  compared  to  the  corresponding  values  of  5.45 
feet  and  100%  for  run  R2  (tables  9,  11;  figures  21,  51).  This  significant 
reduction  in  degradation  and  armoring  near  the  dam  appears  to  induce  some 
changes  in  downstream  reaches,  as  can  be  seen  from  comparison  of  figures  63 
and  57  (for  run  R2);  compared  to  run  R2,  degradation  at  Ponca  (RM  752.4)  is 
slightly  increased,  with  some  reduction  at  Sioux  City  (RM  732.3)  and  Decatur 
(RM  693.9). 

The  agreement  between  computed  and  observed  water-surface  elevation 
changes  in  subreaches  near  the  dam  is  not  satisfactory  (figure  51);  the 
computed  armor-coverage  factor  of  11%  at  the  dam  (table  11)  is  too  low, 
compared  to  the  observed  value  (figure  67).  In  view  of  this,  the  surface- 
layer  procedure  does  not  appear  to  offer  any  advantage  over  the  basic  armoring 
procedure  described  in  Sections  II.C.l  through  II. C. 4  and  used  in  the 

simulation  for  run  R2. 

9.  Discussion  of  Run  R9.  In  all  preceeding  simulation  runs,  the 

downstream  boundary  was  9.75  miles  (one  subreach  length)  downstream  from  Omaha 
(RM  615.9).  In  run  R9,  the  downstream  boundary  is  moved  downstream  (using  the 
same  bed  slope  as  at  Omaha)  by  four  subreaches,  or  48.75  miles  downstream  from 


Omaha,  to  investigate  the  effects  of  the  downstream  boundary  condition  on  the 
pattern  of  degradation/aggradation  in  the  study  reach  from  Gavins  Point  Dam  to 
Omaha.  All  other  input  data  are  the  same  as  for  run  R2.  The  water  surface 
elevation,  computed  from  uniform-flow  depth  for  the  initial  bed  slope  for  each 
water  discharge,  is  fixed  at  the  most  downstream  computational  section. 
Figures  70  through  75  summarize  the  results  for  this  run.  It  is  seen  from 
figures  70  and  75,  as  compared  to  the  corresponding  figures  21  and  57  for  run 
R2,  that  slight  (but  non-negl igible)  differences  exist  in  the  downstream  half 
of  the  study  reach;  for  example,  degradation  at  Sioux  City  (RM  732.3)  is 
reduced  by  about  one  foot  after  20  years,  accompanied  by  an  increase  of  about 
the  same  amount  at  Decatur  (RM  693.9).  Differences  in  the  overall  pattern  of 
degradation  (figures  21  and  70),  however,  are  not  significant. 

10.  Discussion  of  Run  R10.  Run  R10  is  a  3-year  simulation  (1957-60), 
with  the  same  input  data  as  Run  R2.  As  discussed  in  Section  IV. D. 2,  run  R2 
was  not  able  to  give  a  satisfactory  simulation  of  the  effects  of  three  bend 
cutoffs  -  DeSoto  Bend,  California,  and  Middle-Lower  Decatur  cutoffs--in  the 
early  years,  even  though  the  20-year  prediction  was  in  reasonable  agreement 
with  the  observed  trend.  The  purpose  of  this  run  is  to  improve  the  initial 
and  boundary  conditions  and  attempt  to  simulate  the  effects  of  these  cutoffs 
in  the  first  3  years.  For  this  purpose,  the  downstream  boundary  was  moved 
48.75  miles  downstream  from  Omaha  (RM  615.9)  to  reduce  the  effects  of  the 
boundary  condition.  The  program  was  first  run  without  the  presence  of 
cutoffs,  by  increasing  the  lengths  of  the  affected  subreaches  by  the  amount  of 
shortening  of  the  subreaches  due  to  cutoffs.  The  initial  bed  and  water- 
surface  elevations  along  the  study  reach  obtained  from  this  run  were 
recorded.  The  program  was  then  rerun  with  the  lengths  of  the  affected 
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D50 


■material  compositi 


Figure  73.  Change  in  bed-material  composition  for  Run  R9  after  16  years 


■material  composition  for  Run  R9  after  20  years 


subreaches  shortened  to  incorporate  the  effects  of  cutoffs.  The  computed  bed 
and  water-surface  elevations  after  3  years  of  simulation  with  this  run  were 
subtracted  from  the  corresponding  values  of  the  first  run  to  obtain  the 
changes  in  bed  and  water-surface  elevations  due  to  presence  of  the  cutoffs; 
these  values  are  plotted  in  figure  76,  along  with  the  observed  changes  in 
water-surface  elevations  after  3  years  (1957-60).  Figure  76  gives  a  better 
prediction,  as  compared  to  that  for  run  R2  (figure  18),  of  the  observed  drops 
in  water  surface  elevations  near  the  locations  of  the  three  cutoffs;  the 
prediction  of  observed  decreases  in  water-surface  elevations  in  subreaches 
near  the  dam,  however,  is  not  satisfactory.  The  latter  discrepancy  is 
probably  due  to  the  idealized  rectangular  cross-sections  used  in  the  model. 
The  reach  from  Gavins  Point  Dam  to  Ponca  (RM  752.4)  has  a  high  variability  in 
cross-secti onal  shapes  and  sizes;  this  reach  is  also  subjected  to  considerable 
bank  erosion  which  has  increased  the  channel  width  by  as  much  as  30%  at  some 
locations  (Williams  and  Wolman,  1981).  Furthermore,  the  subreach  length 
of  ax  =  9.75  miles  used  in  the  present  simulations  is  too  large  to  account  for 
such  variability  in  cross-sectional  and  sediment  characteristics  of  the 
reach.  In  view  of  these  limitations,  the  inadequacy  in  the  prediction  of 
water-surface  profiles  after  3  years,  shown  in  figure  76,  is  not  entirely 
unexpected.  It  is,  however,  interesting  to  note  that  the  effects  of  these 
approximati ons  in  the  initial  geometric  and  sediment  characteristics  are 
reduced  with  increasing  time  of  simulation,  as  can  be  expected,  and  is 
evidenced  by  reasonable  agreement  in  computed  and  observed  water  surface 
profiles  after  15  and  20  years  of  simulation,  in  figures  20  and  21, 


Computed  and  observed  changes  In  bed  and 
Run  RIO 


11.  Summary  of  Discussions.  The  results  from  ten  different  simulation 
runs  on  the  Missouri  River  reach  between  Gavins  Point  Dam  and  Omaha  are 

presented  and  discussed  in  the  preceding  sections  of  this  chapter.  The 

purpose  of  these  simulations  was  to  evaluate  the  effectiveness  of  the  present 

version  of  IALLUVIAL  in  predicting  the  20-year  changes  in  bed  and  water- 
surface  elevations  and  bed-material  composition  since  the  closure  of  the 
Gavins  Point  Dam  in  1957,  and  to  study  the  sensitivity  of  degradation/ 

aggradation  patterns  in  the  reach  on  channel  cutoffs,  changes  in  bed-material 
size  distributions,  downstream  boundary  conditions,  and  variations  in  some 
empirical  coefficients  appearing  in  the  formulation  of  the  model. 

The  present  code  of  IALLUVIAL  incorporates  extensive  modification  of  the 
bed  armoring  procedure,  which  has  been  found,  as  shown  by  the  results  of  run 
R2  in  figures  66  and  67,  to  yield  satisfactory  predictirn  of  bed  armoring  of 
the  Missouri  River  downstream  of  Gavins  Point  Dam.  The  computed  changes  in 
water-surface  elevation  and  bed-material  sizes  in  run  R2  are  found  to  be  in 
reasonable  agreement  with  the  observed  values  (figures  21,  25).  Two 

alternative  schemes--bed-layer  and  surface-layer  procedures  for  simulation  of 
bed  armoring  were  investigated  with  results  given  by  the  simulations  R7  and 
R8,  and  found  to  be  unsatisfactory.  It  was  concluded  that  the  armoring 
procedure  described  in  Sections  II.C.l  through  II.C.4  and  used  in  run  R2  is 
satisfactory  for  simulating  the  Missouri  River  reach  under  study. 

In  the  remaining  simulation  runs,  runs  R3  through  RIO,  the  same  input 
data  as  for  run  R2  are  used,  except  that  some  selected  input  data  and 
parameters  were  changed  in  order  to  study  their  effects  in  comparison  with  the 
basic  simulation  R2.  In  run  R3,  the  coefficients  Cj,  C2,  C3  of  Eqs.  (21), 
(22),  and  (23)  (which  incorporate  the  effects  of  armoring  on  sediment 


discharge,  friction  factor  and  mixed-layer  thickness)  were  each  changed  from 
their  usual  values  of  unity  to  0.80;  this  resulted  in  a  slight  increase  in 
degradation  near  the  dam,  without  any  significant  effect  in  the  rest  of  the 
reach.  Three  important  channel  cutoffs  (DeSoto,  California,  and  Middle-Lower 
Decatur  cutoffs,  completed  during  1957-61)  were  removed  in  run  R4,  so  that 
their  effects  could  be  investigated  by  comparison  with  run  R2  which  includes 
these  cutoffs.  It  was  found  that  these  cutoffs  exerted  considerable  influence 
on  degradati on/aggradation  pattern  in  the  study  reach;  the  sharp  drop  in 
water-surface  elevations  in  the  affected  subreaches  (which  were  shortened) 
were  accompanied  by  significant  amounts  of  degradation  and  aggradation  in  the 
neighboring  upstream  and  downstream  subreaches,  respectively.  For  run  R5,  the 
amounts  of  coarse  sediments  in  the  last  two  fractions  (4.80  mm  to  19.10  mm) 
were  increased  by  3%  (keeping  Dgg  unchanged)  for  sediment  layers  4  ft  below 
the  bed  in  two  subreaces  near  Sioux  City  (RM  732.3);  this  resulted  in  a  slight 
decrease  in  degradation  in  the  affected  subreaches,  accompanied  by  a  slight 
increase  in  degradation  in  the  downstream  subreaches.  In  run  R6,  the  bed- 
material  size  D5q  was  increased  from  0.297  mm  to  0.385  mm  in  a  58.5-mile  reach 
(RM  684.15  to  RM  742.65),  with  essentially  the  same  result  as  for  run  R5  (in 
which  only  coarser  fractions  in  subsurface  layers  4  feet  below  were 
increased),  but  reductions  and  increases  in  degradation  in  the  reach  with 
coarser  bed  sediments  and  in  downstream  reaches,  respectively,  were  of  larger 
magnitudes. 

The  down,  cream  boundary  in  run  R9  was  moved  further  downstream  (48.75 
miles  d/s  from  Omaha)  to  study  the  effect  of  the  downstream  boundary  condition 
(fixed  water-surface  elevation)  on  the  degradation/aggradation  pattern  in  the 
study  reach.  This  change  in  downstream  boundary  location  was  found  to  have 


insignificant  influence  on  the  overall  degradation/  aggradation  pattern  in  the 
study  reach;  but  a  significant  effect  was  observed  in  the  temporal  bed 
evolution  at  particular  locations  in  the  lower  half  of  the  study  reach.  Run 
RIO  is  a  3-year  simulation  (1957-60)  with  improved  boundary  and  initial 
conditions  in  an  attempt  to  obtain  better  agreement  with  the  observed  drops  in 
water-surface  elevations  due  to  the  three  cutoffs  (DeSoto,  California,  and 
Middle-Lower  Decatur)  in  the  first  three  years;  the  predicted  profile  was 
indeed  in  better  agreement,  though  not  entirely  satisfactory.  In  summary,  the 
updated  version  of  I ALLUVIAL  incorporates  a  realistic  representation  of  bed 
armoring  in  the  Missouri  River  reach  from  Gavins  Point  Dam  to  Omaha,  as 
demonstrated  by  the  reasonable  agreement  between  the  computed  and  observed 
changes  after  20  years  (1957-77)  in  water-surface  profile  (figure  21),  and 
changes  in  bed-material  composition  and  bed  armoring  (figures  25,  66  and  67). 


V.  SUMMARY  AND  CONCLUSIONS 


The  new  version  of  IALLUVIAl  incorporates  extensive  modifications  of  bed 
armoring  procedures  previously  included  in  the  program.  The  present  procedure 
includes  consideration  of  each  sediment  size  fraction  in  armoring 
calculations,  which  permits  removal  or  inclusion  of  a  particular  size  fraction 
in  the  armor  coat  depending  on  the  flow  velocity  and  bed  shear  stress  at  a 
given  time.  The  development  of  armoring  by  accumulation  of  non-movable 
particles  on  the  bed  surface  of  a  plane  bed  (without  bed  forms)  is  first 
formulated  from  volumetric  considerations  as  the  fraction  of  unit  bed  area 
covered  by  armor  coat,  Eq.  (16).  The  armoring  coefficient,  CA(t,k)  in  Eq. 
(16),  is  then  modified  to  account  for  the  effect  of  development  and 
propagation  of  ripples  and  dunes,  by  relating  dune  height  to  the  effectiveness 
of  mixing  processes  caused  by  the  formation  and  movement  of  these  bed 
features.  It  was  hypothesized  that  a  very  active  bed,  which  was  assumed  to 
correspond  to  a  flow  condition  with  maximum  dune  height,  will  trap  all  the 
coarser  immobile  (or  even  slowly  moving)  particles  at  the  bottom  of  the  dunes, 
as  illustrated  by  figure  4,  the  other  extreme  being  the  plane-bed  case  in 
which  all  non-moving  particles  accumulate  on  the  surface,  figure  3.  The 
effect  of  dunes  on  the  accumulation  (or  lack  of  it)  of  coarser  particles  on 
the  bed  surface  is  approximated  by  figure  5,  or  Eqs.  (18)  through  (20).  The 
stochastic  nature  of  incipient  motion  of  armoring  particles  is  formulated  by 
adopting  Eq.  (1)  from  Gessler's  (1967)  analysis,  and  Eq.  (17). 

IALLUVIAL,  with  the  above  bed  armoring  procedure  incorporated,  was 
applied  to  the  195-mile  Missouri  River  reach  between  Gavins  Point  Dam  and 
Omaha,  Nebraska  to  simulate  the  20-year  changes  in  bed  and  water  surface 
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profiles  and  bed-sediment  composition  since  the  closure  of  the  Gavins  Point 
Dam  in  1957.  Reasonable  agreement  was  found  between  the  observed  and  computed 
changes  in  water-surface  elevations  (figure  21),  and  changes  in  bed-material 
composition  and  bed  armoring  (figures  25,  66,  and  67);  agreement  was,  however, 
less  satisfactory  for  the  3-year  simulation  (figure  76),  probably  due  to 
approximations  in  specifying  initial  and  boundary  conditions,  and  the  use  of 
idealized  rectangular  cross-sections  at  large  subreach  intervals. 

The  sensitivity  of  the  degradation/aggradation  pattern  in  the  study  reach 
on  channel  cutoffs,  changes  in  median  bed-material  size,  and  proportions  of 
the  coarser  fractions  in  selected  subreaches,  was  investigated  in  several 
simulation  runs.  It  was  found  that  the  effect  of  three  cutoff s--DeSoto, 
California  and  Middle-Lower  Decatur--was  significant  in  the  rapid  drop  of 
water-surface  elevations  in  these  subreaches.  A  coarser  bed  sediment,  with 
D50  increased  from  0.297  mm  to  0.385,  or  an  increase  by  3%  in  the  amount  of 
armoring  fractions  (4.80  mm  to  19.10  mm),  in  some  selected  subreaches,  were 
found  to  have  significant  effects  in  reducing  degradation  in  the  affected 
subreaches,  accompanied  by  increased  degradation  in  downstream  reaches.  Two 
alternative  bed  armoring  procedures --the  bed-layer  procedure  in  which  a  thin 
active  layer  was  assumed  at  the  top  of  the  mixed  layer,  and  the  surface-layer 
procedure  in  which  surface-layer  mean  sediment  size  was  computed  as  a  function 
of  armoring  particle  sizes  and  the  mean  size  of  the  underlying  mixed  layer — 
were  also  investigated.  It  was  assumed  that  the  faster  coarsening  of  the  top 
layer  (which  is  not  the  same  as  the  armor  layer),  with  this  larger  O50  used  in 
sediment-discharge  and  friction-factor  calculations,  will  indirectly  account 
for  the  effects  of  bed  armoring.  The  results  presented  in  this  study, 
however,  show  that  neither  of  these  procedures  (bed-layer  or  surface-layer) 
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are  adequate  to  simulate  the  evolution  of  bed  and  water-surface  profiles, 
particularly  the  two-layer  structure  of  the  bed  composition  near  the  Gavins 
Point  Dam  (figure  67),  of  the  Missouri  River  reach  under  study. 

The  results  presented  in  this  study  were  obtained  from  an  idealized 
representation  of  the  Missouri  River  reach  by  a  regular  two-stage  upstream 
hydrograph,  rectangular  prismatic  channel  sections,  and  almost-constant  bed- 
material  size  distributions  throughout  the  reach.  The  space  and  time 
intervals  (9.75  miles  and  30  days)  used  in  the  simulation,  dictated  mainly  by 
computer  cost,  are  not  adequate  for  representing  widely  varying  cross- 
sectional  properties,  particularly  in  the  uncontrolled  reach  between  Gavins 
Point  Dam  and  Ponca.  In  view  of  these  limitations,  and  the  fact  that 
IALLUVIAL  is  a  one-dimensional  model  which  can  only  account  for  cross  section- 
averaged  quantities  of  interest,  the  reasonable  agreement  between  the  computed 
and  observed  values,  as  demonstrated  by  figures  21,  25,  66,  and  67,  is 
encouraging  and  suggests  its  usefulness  in  predicting  long-term  bed  and  water- 
surface  evolutions  of  alluvial  rivers,  especially  of  the  Missouri  River. 
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Variable 

Name 


Format  & 
Column  No. 


Description  and  remarks 


TITLE 

15A4( 1-60) 

Title  of  the  study 

N 

15(1-5) 

Number  of  computational  points,  or  cross 
sections 

N1 

15(11-15) 

Number  of  sediment  size  intervals 

NT 

15(16-20) 

Number  of  time  steps 

MAXMA 

15(21-25) 

Max.  no.  of  elevations  used  to  define 
cross-sections 

NTRIB 

15(41-45) 

Number  of  tributaries;  NTRIB  >  1 
(upstream  discharge  is  treated  as 
a  tributary) 

NBANK 

15(46-50) 

Number  of  subreaches  with  erodible  banks 

IBEI) 

15(51-55) 

0  if  vertically  homogeneous  bed  material 
1  otherwise 

MAXBED1 

15(1-5) 

Maximum  no.  of  nonhomogeneous  vertical 
subsurface  layers  in  a  subreach 

IDREJ 

15(11-15) 

0  if  no  dredging;  1  otherwise  (required 
value  =  0  presently) 

NTY 

15(16-20) 

No.  of  time  steps  in  a  360-day  year 

KDIA 

15(1-5) 

Required  value  =  0 

10 1 A 

15(6-10) 

Required  value  =  0 

IUF 

15(11-15) 

Required  value  =  0 

IN  PR 

15(16-20) 

Frequency  of  printed  output,  in  no.  of 
time  steps 

I  ROCK 
I8UG^ 

15(21-25) 

0  if  no  rock  outcrops;  1  otherwise 

15(36-40) 

0  for  normal  output;  1  for  extensive 
diagnostic  messages 

ICHB 

15(41-45) 

0  for  no  width  changes  with  time;  1 
otherwise  (required  value  =  0  presently) 

ICOFF 

15(46-50) 

0  for  no  cutoffs  with  time;  1  otherwise 
(required  value  =  0  presently) 

NRES3 

15(56-60) 

Results  file  reference  number;  0  for  no 
file 

Format  & 
Column  No. 


Description  and  remarks 


Card 

No. 


Vari abl e 
Name 


5 

IRES 

15(1-5) 

Required  value  =  1 

I SED 

15(6-10) 

Required  value  =  1 

INDEX 

15(11-15) 

Required  value  =  1 

INDEX1 

15(16-20) 

Required  value  =  0 

INDSS 

15(21-25) 

Required  value  =  1 

ILIMIT 

15(26-30) 

Required  value  =  5 

IEQ  , 

15(31-35) 

Required  value  =  1 

IDSWS4 

15(36-40) 

0  if  downstream  w.s.  elev.  given  as 
input;  1  otherwise 

6 

ALFA 

F10. 4(1-10) 

Parameter  Ci  in  Eq.  (21) 

BETA 

F10. 4(11-20) 

Parameter  C3  in  Eq.  (23) 

C21 

F10. 4(21-30) 

Pqarameter  *2  in  Eq.  (22) 

C22 

F 1 0. 4( 31-40) 

Required  value  =  C21 

FMIX 

F10. 4(41-50) 

Required  value  =  1.0 

CARM5 

F10. 4(51-60) 

Parameter  CA  in  Eq.  (15) 

7 

STR6 

F14. 7(1-14) 

Energy  slope  for  d.s.  boundary  and 
initial  estimate 

87 

DMZ(  I ) ,  1  =  1  ,li 

1  6F10.4 

Depth  of  rock  outcrop  below  initial  bed, 
by  point 

9 

IUPS 

15(1-5) 

0  for  constant  upstream  sediment  inflow; 

1  for  upstream  sediment  inflow  rating 
curve 

108 

CPPMUP 

F14. 8(1-14) 

Upstream  sediment  concentration,  ppm 

11 

LOCTR(L) , 

L=1,NTRIB 

1215 

Locations  (point  numbers)  of  tributaries, 
upstream 

to  downstream.  L0CTR(1)  =  N  always 

129 

AC(L) ,BC(L) 

l.=l,NTRIB 

2F14.8 

Sediment  rating  curve  coefficients,  a^ y 
bi  in  Eq.  (26). 

One  card  for  each  tributary 

13 

PTRIB(L,K) 

K=1 ,N1 ; 
L=1  ,NTR IB 

6F10.2 

Probability  distribution  function  for 
tri butary 

sediment  loads;  K  varies  first 

1410 

IBSED 

15(1-5) 

0  if  eroded  bank  material  size 
distribution  same  as  bed;  1  if  specified 
as  input 

QMIN 

F10. 1(6-15) 

Water  discharge  (cfs)  below  which  no  bank 
erosion  occurs 

Card  Variable  Format  &  Description  and  remarks 

No.  Name  Column  No. 


1510 

LOCBER(M) , 
M=1,NBANK 

1215 

Number  of  reaches  subject  to  bank 
erosion,  upstream  to  downstream 

II 

t-H 

fH 

PBANK(M.K) 

1,N1  ;M=1,NBANK 

6F10.2 

Probability  distribution  function  for 
eroded  bank  material;  K  varies  first,  M 
varies  upstream  to  downstream 

1710 

BEROS(M) , 
M=1,NBANK 

6F10.2 

Bank  erosion  rates,  ft3/mile/day,  in 
reaches  LOCBER(M) 

18 

DS( K) ,K=1 

Nl+1 

6F10.4 

Sediment  sizes  (mm)  delimiting  the  N1 
size  intervals 

Card  types  19,20  are  read  for  each  of  N  computation  points,  1=1,  N,  downstream 
to  upstream;  type  21  is  read  for  each  of  (N-l)  subreaches,  downstream  to 
upstream. 

*  19  RMILE(I)  F10. 2(1-10)  River  mile  of  computational  point  I*2 

MA(I)  110(1 1-20)  Number  of  levels  used  to  define  cross 

section;  MA(I)  <  MAXMA 

*  20 


Bl(  I  ,L) 
L=1,MA( I) 

F10. 3(31-40) 

Surface  width,  ft 

(lowest  to  highest  level,  one  level  per 
card) 

21 

CDF(K),  K=1 
Nl+1 

,  6F10.4 

Cumulative  distribution  function  for  bed 
sediment  in  the  reach  between  points  I 
and  1+1;  CDF(K)  corresponds  to  DS(K) 

2214 

NBEL(I) 
1=1, N-l 

1215 

Number  of  elevations  at  which  bed 
material  changes  in  reach  I, 

I  from  downstream  to  upstream 

2314 

THBED(I), 
1=1, N-l 

6F10.3 

Constant  thickness  (ft)  of  subsurface 
layers  in  reach  I 

2415 

PBED( I ,K, J) 

9 

Probability  distribution  function  for 

K= 

=  1,N1  ;J=1,NBEL; 

1=1, N-l 

sediment  in  subsurface  layer  J  of  reach  I 

25 

IBLR 

15(1-5) 

0  for  no  bed  layer;  1  if  bed  layer  is 
used  instead  of  armoring  procedure  (cards 
26  and  27  are  skipped  if  IBLR  =  1) 

I  SLR 

15(6-10) 

0  if  surface-1 ayer  procedure  is  not  used; 

1  if  used 


STAGE ( I, L),  F10.  3(1-10) 
AREA(I,L)?'5  F10. 3(11-20) 
R1(I,L)  F10. 3(21-30) 


Reference  elevation,  ft  2 
Cross-sectional  area,  ft 
Hydraulic  radius,  ft 
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Card 

Variable 

Format  & 

Description  and  remarks 

No. 

Name 

Column  No. 

26 

IARMOR 

15(1-5) 

0  for  direct  specification  of  armoring 
size;  1  if  calculated  by  the  program 

MIND 

15(6-10) 

Smallest  sediment  fraction  number  in 
armor  coat  (if  IARMOR  =  0) 

QMAX 

F10. 0(11-20) 

If  1  ARMOR  =  1 ,  and  IQMAX=0,  constant 
discharge  used  to  determine  armoring 
size,  cfs 

IQMAX 

15(21-25) 

If  IARM0R=1,  0  for  determination  of 
armor  size  based  on  QMAX,  1  if  based 
on  local  hydrograph 

I ACF 

15(26-30) 

0  for  no  initial  armored  area;  1  if  bed 
i s  armored  initially 

KARM 

15(31-35) 

0  for  specifying  constant  value  of 
armoring  coefficient  C^  in  Eq.  (16);  1 
for  using  Gessler's  relation;  2  for  bed¬ 
load  method;  3  for  using  both  bed-load 
and  Gessler's  methods;  4  for  dune-height 
method;  5  for  using  both  Gessler's  and 
dune-height  method1  . 

Cl 

F10. 4(36-45) 

Coefficient  for  bed-load  method  (if 

KARM  =  2  or  3). 

27 

ARM(I.K) 

6F10. 6(1-60) 

Initial  value  of  armor-covered  bed 
area  (fraction)  for  each  sediment 
fraction  K  at  reach  I,  downstream  to 
upstream  (K  varies  first);  used  only  if 
IACF  =  1. 

2817 

ITDAT 

14(1-4) 

Date  (day  number)  associated  with 

the  list  of  time-dependent  data  to  follow 

TFREAD 
QTRIB(L) , 

F4. 0(5-8) 

Water  temperature  (°F)  on  day  ITDAT 
Tributary  water  discharges  (cfs)  on  day 

L  =  1,  NTRLB 

9F8. 0(9-80) 

YREAD 

QSREAD 

ITDAT 

(recall  QTRIB(l)  =  mainstem  inflow) 
Downstream  water  level  on  day  ITDAT  (ft) 
Upstream  sediment  inflow  (ppm)  on  day 

ITDAT 
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Used  only  if  IBE0=1. 

The  diagnostic  messages  are  lengthy  and  of  use  only  to  the  user  who 
knows  the  detailed  workings  of  the  program. 

NRES  is  the  FORTRAN  reference  number  of  a  sequential  file  onto  which  is 
written,  without  format,  all  results  at  each  time  step.  This  file  can 
be  used  for  off-line  analysis  of  the  computation. 

If  IDSWS=1,  the  program  uses  TLTM  to  compute  the  water  surface  elevation 
at  the  downstream  boundary,  for  an  imposed  energy  slope  of  STR  (see  Card 
7). 

The  Missouri  River  model  uses  =  1.90. 

The  Missouri  River  model  uses  STR=0. 00189. 

Card  8  is  read  only  if  1R0CK=1. 

Card  10  is  read  only  if  IUPS=0. 

AC  has  units  of  tons/day;  BC  is  dimensionless.  AC(I),  BC ( I )  are  read 
only  if  IUPS=1. 

Card(s)  read  only  if  NBANK  *  0. 

Card  10  are  read  only  if  NBANK  *  0  and  IBSED=1. 

River  miles  increase  from  downstream  to  upstream,  and  must  represent 
actual  distances  along  the  mainstem. 

If  AREA  ( I ,MA( I ) )  is  left  blank,  both  the  areas  and  hydraulic  radii 
(average  depths)  will  be  calculated  automatically  by  the  trapezoidal 
rule.  Otherwise  the  user  must  furnish  consistent  values. 

Card(s)  read  only  if  IBED=1. 

Card(s)  read  only  if  IBEO  =  1  and  NBEL(I)  f  0. 

The  Missouri  River  model  uses  KARM  =  5,  which  is  recommended. 

IALLUVIAl  obtains  time-dependent  data  by  linear  interpolation  (in  time) 
between  successive  data  lists  of  type  28  cards.  At  least  two  type  28 
cards  are  required;  ITDAT  <  0  on  the  first,  ITDAT  >  NT*360/NTY  on  the 


last. 


TFREAO  is  used  only  if  1DSWS=0. 
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APPENDIX  B 
Program  Listing 

PROGRAM  1ALLUV1AL 


DEFINITION  OF  VARIABLES 

SECTION  I,  1=1, N 

SIZE  FRACTION  K,  K=1,N1 
ELEVATION  L,  L=1,MA(I) 

TIME  INTERVAL  IT,  IT=1,NT 

IRES=  INDEX  VARIABLE  TO  INDICATE  METHOD  OF  COMP . FLOW  RESISTANCE 
IRES=  1  FOR  1 1 HR  METHOD  ;  IRES=  2  FOR  A-L-K  METHOD 
I SED=  INDEX  VARIABLE  TO  INDICATE  METHOD  OF  COMPUTING  SEDIMENT 
DISCHARGE  ;  ISED=  1  FOR  IIHR  METHOD;  ISED=  2  FOR  EINSTEIN 
METHOD 

INDEX=INDEX  VARIABLE  TO  INDICATE  NO. OF  SUBSECTIONS  USED  IN 
BACKWATER  CALCULATIONS  (=1  FOR  SINGLE  CHANNEL, =2  FOR 
2  SUBSECTIONS,  =3  FOR  3  SUBSECTIONS  ) 

I NDEX 1=1 NDEX  VARIABLE  TO  INDICATE  WHETHER  NO.  OF  SUBCHANNELS 
USED  IN  SEDIMENT  CALCULATIONS  IS  THE  SAME  OR  MORE  THAN 
THAT  USED  IN  BACKWATER  CALCULATIONS  (=0,SAME;  =1,  MORE  ) 
INDSS=INDEX  VARIABLE  TO  SPECIFY  UPSTREAM  SEDIMENT  DISCHARGE; 
INDSS=0  IF  COMPUTED  BY  THE  PROGRAM  AS  EQUAL  TO  THE 
TRANSPORT  CAPACITY;  =1  IF  GIVEN  AS  INPUT 
IDSWS=INDEX  VARIABLE  TO  SPECIFY  DOWNSTREAN  WATER  SURFACE 

ELEVATION; I DSWS=0  IF  GIVEN  AS  INPUT;  =1  IF  COMPUTED 
INTERNALLY  ASSUMING  UNIFORM  FLOW 
N=NO .  OF  SECTIONS, IN  LONGITUDINAL  DIRECTION 
Nl=NO .  OF  SEDIMENT  SIZE  FRACTIONS 
NT=  NO.  OF  TIME  INTERVALS 
NTR I B=NUMBER  OF  TRIBUTARIES 
NBANK=  NUMBER  OF  REACHES  WITH  BANK  EROSION 

I BED  =  INDEX  VARIABLE  TO  INDICATE  VERTICAL  VARIATION  OF  BED-MAT. 

SIZE  DIST.  BELOW  ORIGINAL  CHANNEL  BED;  IBED=0  FOR  NO 
VARIATION;  =1  FOR  VARIATION. 

NBED=  NO.  OF  REACHES  WHERE  SEDIMENT-BED  COMPOSITION  VARIES 
IN  VERTICAL  DIRECTION 

NTP=NO . OF  TIME  INTERVALS  AT  WHICH  BED-ELEVATION  CHANGES  WILL  BE 
PLOTTED  AT  A  GIVEN  SECTION 

ICHB=  INDEX  VARIABLE  FOR  CHANGE  IN  CHANNEL  WIDTH  WITH  TIME; 

ICHB=0  FOR  NO  CHANGE;  =1  FOR  CHANGE. 

ICOFF=  INDEX  VARIABLE  FOR  INCORPORATING  CHANNEL  CUTOFF  AT 
SPECIFIED  TIMES 

IDREJ=INDEX  VARIABLE  FOR  DREDGING;  IDREJ=0  FOR  NO  DREDGING; 

=1  FOR  DREDGING. 

IBUG=INDEX  VARIABLE  FOR  PRINTING  DETAILED  OUTPUT  FOR  DEBUGGING 
IBUG=0  FOR  NO  PRINT;  =1  FOR  PRINTING  . 

ILIMIT=LIMITING  NUMBER  OF  VIOLATIONS  OF  SPECIFIED  CRITERIA  FOR 
RECOMPUTING  BACKWATER  PROFILE  AND/OR  SEDIMENT  LOADS 
IN  EACH  TIME  PERIOD 

IEQ=  INDEX  VARIABLE  TO  INDICATE  EQUILIBRIUM  OR  NON- EQUILIBRIUM 

SEDIMENT  CALCULATIONS  (  IEQ=1  FOR  EQM . ,  IEQ=0  FOR  NON-EQM. ) 
IDELT=TIME  INTERVAL, DAYS 

NTY=NO .  OF  TIME  STEPS  IN  ONE  YEAR  ( 360DAYS ) 
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c 

ITIME=TOTAL  PERIOD, DAYS 

*  ** 

c 

GAMA=SPECIFIC  WEIGHT( LBS/CFT)  OF  SEDIMENT 

c 

IFLAG=INDEX  VARIABLE  TO  INDICATE  RECOMPUTATION  OF  BACKWATER 

y 

c 

PROFILE  (  IFLAG=0 :  DO  NOT  RECOMPUTE;  IFLAG=1 :  RECOMPUTE  ) 

=■*1 

c 

IFLAG1=INDEX  VARIABLE  TO  INDICATE  RECOMP.  OF  SEDIMENT  LOADS 

i*,  .* 

c 

IN  EACH  TIME  PERIOD  ( I FLAG1=0 , DO  NOT  RECOMPUTE; 

s' 

* 

\\ ; 

c 

p 

I FLAG1=1 ,  RECOMPUTE  ) 

<  *t« 

SB 

c 

MA ( I ) =NO . OF  INDEX  ELEVATIONS  FOR  COMPUTING  GEOMETRIC  PROPERTIES 

c 

AT  SECTION  I 

•—> 

as 

c 

STAGE ( I ) =WATER  SURFACE  ELEVATION  AT  SECTION  I , IN  TIME  INT.  IT 

c 

REACH ( I )= LENGTH  OF  REACH (FT.)  BETWEEN  SECTIONS  I  AND  1+1 

.  _  * 

c 

Q(I)=TOTAL  DISCHARGE(CFS. )  AT  SECTION  I , IN  TIME  INTERVAL  IT 

v 

i  *•*.  * 

c 

STAGE 1 ( I , L ) , AREA (I,L),R1(I,L)/B1(I/L) = STAGE , AREA , HYD . RADIUS , AND 

u 

« 

c 

W.S. WIDTH  , RESPECTIVELY, OF  THE  WHOLE  SECTION  AT  SECTION  I, 

c 

c 

ELEV.  INDEX  L 

D50  ( I ) =MED I AN  SEDIMENT  SIZE  (MM)  AT  SECTION  I 

*  • 

>.y 

c 

D65G ( I ) =D65 ( MM )  AT  SECTION  I , SEGMENT  J 

*  b 

c 

DLIM( I ) =  MAXM.  SEDIMENT  DEPTH ( FT)  AT  START  ON  BED  AT  SECTION  I, 

c 

SEGMENT  J 

xj 

am 

c 

D(K) ,P(K) ,W(K)=SED. SIZE(MM. ), POROSITY, AND  FALL  VELOCITY( FT/S ) , 

c 

RESPECTIVELY, FOR  SIZE  FRACTION  K 

v>: 

c 

PT ( I , K)=SED .  FRACTION  FOR  SECTION  I , SEGMENT  J,SIZE  K, IN  THE  BED 

>/* 

c 

PTT( I ,K)=INITIAL  VALUE  OF  PT(I,K) 

,-y 

c 

PTI ( I , K )= INITIAL  STORAGE  FOR  PT(I,K) 

A 

c 

TF( I ) , VISC( I )=  ARRAY  OF  TEMPERATURE  AND  VISCOSITY  OF  WATER  , 

. 

**• 

c 

RESPECTIVELY,  AT  INDEX  I 

d. 

ilS.’ 

c 

TEMPF=  TEMPERATURE ( F )  OF  WATER  IN  TIME  PERIOD  IT 

r: 

c 

GS(K)=SPECIFIC  WE I GHT( LBS/CFT ), FOR  SIZE  FRACTION  K 

c 

SSC ( I , K ) =SED . CONCN . ( PPM )  OF  FRACTION  K, AT  SEGMENT  J, SECTION  I 

■y-j 

c 

SSI ( K ) =SSC(N, K) 

\< 

c 

B( I )=W. S. WIDTH 

V 

c 

SF( I )=ENERGY  SLOPE 

c 

CTO ( I ) =MEAN  SED.  CONCENTRATION  PER  VOLUME,  AT  SECTION  I 

ri 

>> 

c 

FR( I )=FRICTION  FACTOR 

0 

8£ 

c 

PSD(K)=FRACTION  OF  MATERIAL  OF  SIZE  K  IN  THE  DISCHARGE 

;  A 
.  V 

c 

RA ( I ) =HYD .  RADIUS  AT  SECTION  I , SEGMENT  J 

'0 

■:>% 

c 

XA( I ) =CROSS  SECTION  AREA  AT  SECTION  I , SEGMENT  J 

V.  i 

MSI 

) 

ASM 

C 

BB( I )=W. S .WIDTH 

■ji 

c 

D50G( I )=SED.DIA. (MM. )  AT  SECTION  I,  SEGMENT  J 

c 

QST ( I ) =TOTAL  DISCHARGE  OF  SEGMENT  J,AT  SECTION  I 

c 

VAV ( I ) =MEAN  VELOCITY  AT  SECTION  I , SEGMENT  J 

‘.y: 

c 

SE ( I ) =ENERGY  SLOPE  AT  SECTION  I,  SEGMENT  J 

s 

c 

DW ( I ) =MEAN  WATER  DEPTH  OF  SEGMENT  J,  AT  SECTION  I 

,  • 

c 

DELDB  ( I , K ) =CHANGE  IN  BED  ELEVATION  AT  SECTION  I,  SEGMENT  J,  FOR 

c 

SED.  FRACTION  K, DUE  TO  BED  LOAD 

-r 

c 

DELDS  ( I , K ) =CHANGE  IN  BED  ELEVATION  AT  SECTION  I,  SEGMENT  J,  FOR 

c 

SED.  FRACTION  K, DUE  TO  SUSPENDED  LOAD 

.. 

r  V. 

c 

TDELD  ( I , K ) =CHANGE  IN  BED  ELEVATION  AT  SECTION  I,  SEGMENT  J,  FOR 

;,**  . 

c 

SED.  FRACTION  K, DUE  TO  SUSPENDED  LOAD  AND  BED  LOAD 

*  ■ 

'• 

c 

p 

CDEP ( I )=SUM  IN  K  AND  TIME  OF  TDELD ( I, K) 

J 

•y.\ 

c 

p 

DYNAMIC  ALLOCATION  OF  ARRAYS 

j 

c 

c 

ATTENTION  :  ARRAY  T  MUST  ALWAYS  BE  DIMENSIONED  T ( MEMO ) 

/ 

4. 

ym 

c 

c 
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1000 


2000 


1001 


DIMENSION  T(20000  ),TITLE(15) 

MEMO=20000 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

COMMON/D I MS/N , N1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , N IP 1 , NTONX ,  NOBS , 

1  NT3651 , NT3652 , NTRIB , NBANK, I BED, MAXBED, NBED, NTP , NT1 , IDREJ , NTY 

READ  (5,1000)  TITLE 
FORMAT (15A4) 

WRITE ( 6, 2000 )  TITLE 

FORMAT ( ' 1  * ,////, 10X, 70( '*'),/, 10X, 68X, 10X,  ' *' ,4X, 

$  15A4, 4X, 10X, ' * ' , 68X, 10X, 70 ('* ' ),////) 

READ  DIMENSIONING  PARAMETERS 

READ(5, 1001)  N, Ml ,N1, NT, MAXMA, NOBS, NX, IGR, NTRIB, NBANK, I BED, NBED 
READ (5, 1001)  MAXBED, NTP, IDREJ, NTY 
FORMAT ( 1215) 

NN=N- 1 

NMA=N* MAXMA 

NN1=N*N1 

N1P1=N1+1 

NT3651=1 

NT3652=1 

IF  (NTY.NE.O)  NT3651=NT/NTY+1 
IF  (NTY.NE.O)  NT3652=NT/NTY+2 
NT1=1 

IF  (NTP.NE.O)  NT 1 =NT/NTP  +  2 

DYNAMIC  ALLOCATION  OF  WORKING  ARRAYS  WITHIN  ARRAY  T 
11=1 

12=1 1+NN1 
I3=I2+NN 
I4=I3+N 
I5=I4+NN 
I6=I5+N*N1 
I7=I6+N 
I8=I7+N 
I9=I8+N*N1 
I 10=1 9 +N 
I 11=1 10+NMA 
I12=I11+NMA 
I 13=1 12+NN 
I 14=1 13+NMA 
1 15=1 14+NMA 
I 16=1 15+NMA 
1 17=1 16+NMA 
118=1 17+NMA 
I 19=1 18+N1+1 
120=1 19+NN 
121=120+ (Nl+1 ) 

I22=I21+N 

I23=I22+N1 

I24=I23+N1 

I25=I24+NN*N1 

I26=I25+NN*N1 

127=126+72 


rv^<.w, 


I28=I27+NTRIB 

I29=I28+N1 

I30=I29+NN1 

I31=I30+N1 

132=13 1+NN*N1 

I33=I32+N 

I34=I33+N 

I35=I34+N 

I36=I35+N 

I37=I36+N 

I38=I37+N 

I39=I38+N 

I40=I39+N 

I41=I40+N1 

142=141 

143=142 

144=143 

145=144 

146=145 

147=146 

I48=I47+N 

I49=I48+N 

I50=I49+N 

I51=I50+NN1 

I52=I51+NN1 

I53=I52+N 

I54=I53+NN1 

I55=I54+NN1 

I56=I55+N 

I57=I56+N 

I58=I57+N 

I59=I58+N 

I60=I59+N 

I61=I60+N*NTY 

162=161 

I63=I62+N 

I64=I63+NN1 

165=164 

166=165 

I67=I66+N 

168=167 

169=168 

170=169 

171=170 

172=171 

173=172 

I74=I73+NN1 

I75=I74+N 

I76=I75+N 

I77=I76+NN1 

I78=I77+N 

I79=I78+N 

180=1 79+NN1 

I81=I80+N 

I82=I81+NN1 

I83=I82+NN1 

I84=I83+N 

I85=I84+NN1 
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I86=I85+N 

I87=I86+NTRIB 

I88=I87+NTRIB 

I89=I88+NTRIB*N1 

I90=I89+NTRIB 

I91=I90+NTRIB*N1 

I92=I91+NTRIB 

I93=I92+NTRIB 

1 9  4= 193  +NBANK 

I95=I94+NBANK 

I96=I95+NN 

I97=I96+NN 

198=197+ (NN*N1*MAXBED)*IBED 
I99=I98+NT3651 
I100=I99+NT3651 
I 101=1 100+NT3 651 *N 
I 102=1 101 +NT3 651 *NN 
I 103=1 102 +NT3 651 
1104=1 103+NT3651 
I 105=1 104+NBANK*N1 
I 106=1 105 +NN*N1 
I 107=1 106+NT* IDRE J 
I 108=1 107+NT*N* IDRE J 
I 109=1 108+NT* IDRE J 
I 110=1 109 +N* IDREJ 
I 111=1 110+N 
IEND=I 111 
C 

C  VERIFICATION  OF  SUFFICIENT  MEMORY 

C 

IF(  IEND .  LT .  MEMO )  GO  TO  10 

CALL  ERRORl (  I END , MEMO , N , Ml , N1 , NT , MAXMA , NOBS , NX , I GR ) 

C 

C  MEMORY  O.K.  TRANSFER  CONTROL  AND  ARRAY  ADDRESSES  TO  SMAIN 

C 

10  WRITE ( 6 , 2002 )  IEND, MEMO 

2002  FORMAT (T20, 'MEMORY  USED  =' , 18, '  WORDS ', 3X, ' MEMORY  AVAILABLE=' , I 
CALL  SMAIN (TITLE, T(I1),T(I2),T(I3),T(I6),T(I7), 

1  T(I9),T(I10),T(I11),T(I12),T(I13),T(I14),T(I15),T(I16), 

2  T(I17),T(I18),T(I19),T(I20),T(I21),T(I22),T(I23),T(I24),T(I25) 

3  T ( 126 ) ,  T(I28),T(I29),T(I30),T(I31),T(I32),T(I33),T(I34) 

4  T(I35),T(I36),T(I37),T(I38),T(I39),T(I40),T(I4)) 

CALL  SMAIN1  (T( 147 ) , T( 1 48 ) , T( 149 ) , T( 1 50 ) , T( 151 ) , T( 152 ) , 

6  T( 153) ,T(I54) ,T( 155) ,T( 156) ,T( 157) , 

7  T(I62),T(I63),T(I66), 

8  T( 173 ) , T( 174) ,T( 175) ,T(I76) ,T(I77) ,T(I78) ,T( 179) , 

9  T(I80),T(I81),T(I82),T(I83),T(I84),T(I85),T(I86),T(I87),T(I88) 

8  T(I89),T(I90),T(I91),T(I92),T(I93),T(I94),T(I95),T(I96),T(I97) 

9  T( 198) ,T(I99) ,T( 1100) ,T(I101) ,T(I102 ) , T( I 103 ) , T( I 104) , T( I 105 ) , 
@  T( I 106 ) , T( I 107 ),T(I108),T(I109),T(I110),T(I5),T(I8), 

$  T(I58),T(I59),T(I60),T(I27)) 

STOP 
END 
C 
C 
C 
C 
C 


SUBROUTINE  SMAIN 


SUBROUTINE  SMAIN  (TITLE, VOLIN, REACH, DMZ , STAGE, Q, 

1  MA , STAGE 1 , B1 , SL1 , R1 , AREA , AREA I , R I , STAGE I , DS , D50 , CDF , DMS , P , D , 

2  PT, PTT, TF, W, SSC, SSI , PTI , XAREA, R, B, CTO, SF, ACF, CIN, FR, GS, QSDP ) 


INTEGER  I CODE/' IAL1 '/ 

LOGICAL  SECCAL 

DIMENSION  VOLIN(N,Nl ) , REACH ( NN ) , TITLE ( 15) , DMZ (N) , 

1  STAGE ( N ) , Q ( N ) , MA ( N ) , STAGE 1 ( N , 

2  MAXMA ) , B 1 ( N , MAXMA ) , SL1 (NN ) , R1 ( N , MAXMA) , AREA(N , MAXMA) , AREAI (N, 

3  MAXMA ) , R I ( N , MAXMA ) , STAGE I ( N , MAXMA ) , DS ( NIP 1 ) , D50 ( NN ) , CDF ( 

4  N1P1 ) , DMS (N),P(N1),D(N1), PT( NN, N1 ) , PTT(NN, N1 ) , TF (12) , 

5  VI SC (72) ,W(N1) , SSC ( N , N1 ) , SSl(Nl) , PTI ( NN, N1 ) , XAREA(N) , 

6  R ( N ) , B ( N ) , CTO ( N ) , SF(N) , ACF(N) , CIN(N) , FR(N) , GS(N1 ) , 

7  VAV ( N ) , QSDP ( NN) , QTRIB( NTRIB ) , 

8  SE ( N ) , DW ( N) , DELDS ( N, N1 ) 

DIMENSION  TDELD ( N , N1 ) , CDEP ( N ) , KA(N, N1 ) ,  Y(N) , 

1  VOLOUT(N) , RMILE(N) , LLIM(N) , DELT(N, 

2  N1 ) , DH ( N ) , ARM ( N , N1 ) , PAC (N,NI) ,D50SL(N), D50SLS (N) , WSEL(N, NTY) , 

3  TI ( N, N1 ) , TH( N) , TH1 ( N ) , PTP ( N, 

4  N1 ) , ELI (N) , EL2 (N) , PTU(N,N1 ) , BML ( N ) , PQS ( N, N1 ) , PDN ( N, 

5  N1 ) , CDEP 1 ( N ) ,TB(N,N1) , ACF1(N) ,BZ(N,N1 ) , 

6  QTR(NTRIB) ,QSTR( NTRIB) , TDELTR( NTRIB, N1 ) , LOCTR( NTRIB) , 

7  PTRIB(NTRIB,N1) , AC (NTRIB) , BC ( NTRIB ) , LOCBER ( NBANK ) , 

8  BEROS ( NBANK ) , NBEL ( NN ) , THBED ( NN ) , PBED ( NN , N1 , MAXBED ) 

DIMENSION  I CHBT ( NT3 65 1 ) , ICOFFT(NT3651), ICHBL(NT3651,N), 

1  ICOFFL ( NT3651 , NN ) , NCHBL (NT3651 ) , NCOFFL(NT3651 ) , 

2  PBANK( NBANK, Nl) , 

3  PTA(NN, Nl ) , IDRT(NT) , IDRL(NT,N) , NDRL ( NT ) , VDRE J ( N ) , DARM ( N ) 

DATA  VISC  /l. 92, 1.89, 1.85, 1.82, 1.79, 1.76, 1.72, 1.69, 1.66, 1.64, 

&1 . 61 , 1 . 58 , 1 . 55 , 1 . 53 , 1 . 50 , 1 . 48 , 1 . 45 , 1 . 43 , 1 . 41 , 1 . 39 , 1 . 37 , 1 . 34, 

&  1.32,1.30,1.28,1.26,1.25,1.23,1.21,1.19,1.17,1.16,1.14,1.13, 

&  1.11,1.10,1.08,1.07,1.05,1.04,1.03,1.01, .999, .986, .974, .961, 

&  .949, .938, .926, .915, .904, .893, .883, .873, .862, .852, .843, .833, 

&  .824, .814, .805, .796, .788, .779, .771, .762, .754, .746, .738, .731, 

&  .723, .716  / 

COMMON/D I MS/N , Nl , NT , Ml , MAXMA , NN , MEMO , NX , I GR , NIP 1 , NTONX , NOBS , 

1  NT3651,NT3652, NTRIB, NBANK, I BED, MAXBED, NBED, NTP , NT1 , IDREJ, NTY 
COMMON/SCALR/INDEX, I , IDELT, VIS, ITIME, GAMA, I FLAG , IT, INDSS, IFLAG1 , 
1  I LIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , IBUG, ICHB, ICOFF,VISLOG 
COMMON/DREJ/KDREJ 
COMMON/ARM1/ I BLR , I SLR, FSLR 

RETURN 

ENTRY  SMA I Nl ( VAV , SE , DW , DELDS , TDELD , CDEP , KA, B2, Y, 

4  VOLOUT, RMILE, LLIM, DELT, DH, 

5  TI , TH , TH1 , PTP , ELI , EL2 , PTU , BML , PQS , PDN , CDEP 1 , TB , ACF1 , 

6  QTR , QSTR , TDELTR , LOCTR , PTR I B , AC , BC , LOCBER , BEROS , NBEL , THBED , PBED , 

7  I CHBT , ICOFFT , ICHBL , ICOFFL, NCHBL, NCOFFL, PBANK, PTA, IDRT, IDRL, 

8  NDRL , VDRE J , DARM , ARM , PAC , D50SL , D50SLS , WSEL , QTRIB) 


DATA  INPUT 

I FR= INDEX  VARIABLE  TO  INDICATE  MODE  OF  CALCULATING  FR.  FACTOR 

I FR=0  FOR  CONSIDERING  FR.FR.  AS  FUN.  OF  QS  IN  CURRENT  PERIOD 
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IFR=1  FOR  CONSIDERING  FR.FR.  AS  FUN.  OF  QS  IN  PREVIOUS  PERIOD 
IDIA=INDEX  VARIABLE  TO  INDICATE  PROCEDURE  OF  FINDING  D50  AT 
A  SECTION  FROM  ADJACENT  REACH  VALUES 
IDIA=0  FOR  CALCULATING  D50  BY  AVERAGING  AD J .  REACH  VALUES 
IDIA=1  FOR  CALCULATING  D50  AS  THE  U/S  REACH  VALUE 
IUF=IND£X  VARIABLE  TO  INDICATE  PROC .  TO  SPECIFY  W.S.  ELEVATION 
AT  THE  MOST  D/S  SECTION 

IUF=0  FOR  SPECIFIED  W.S.ELEV.  AT  THE  MOST  D/S  SECTION 
IUF=1  FOR  CALCULATING  W.S.ELEV.  FOR  UNIFORM  FLOW 
INPR=INDEX  VARIABLE  TO  INDICATE  FREQUENCY (@  NO.  OF  TIME  INTERVALS) 
OF  PRINTING  RESULTS 

KDIA=INDEX  VARIABLE  FOR  CONSIDERING  ARMORING  EFFECT  IN  CALC.  D50 
KDIA=0  FOR  NOT  CONSIDERING  ARMORING  EFFECT 
KDIA=1  FOR  CONSIDERING  ARMORING  EFFECT 
IGR=INDEX  VARIABLE  TO  INDICATE  PLOTTING  OPTION 
IGR=0  FOR  NO  PLOT  ;  IGR=1  FOR  PLOT 
IPLOT=INDEX  VARIABLE  FOR  TYPE  OF  PLOTS;  IPLOT=0  FOR  PLOTTING 

ABSOLUTE  VALUES  OF  BED  W.S.  ELEVATIONS;  =1  FOR  PLOTTING 
INCREMENTAL  CHANGES  IN  BED  AND  W.S.  ELEVATIONS 
IROCK=INDEX  VARIABLE  FOR  LIMITING  DEGRADATION  DUE  TO  ROCK  OUTCROP 
IROCK=0  FOR  NO  ADJUSTMENT  DUE  TO  ROCK  OUTCROP 
IROCK=l  FOR  ADJUSTMENT  DUE  TO  ROCK  OUTCROP 


IOBS=INDEX  VARIABLE  FOR  INCLUDING  OBSERVED  CHANGE  IN  W.S. 
PROFILE  IN  PLOTS 

IOBS=0  FOR  NOT  INCLUDING  OBSERVED  VALUES 
IOBS=l  FOR  INCLUDING  OBSERVED  VALUES 
I NPUT= I NDEX  VARIABLE  TO  DESCRIBE  DATA  INPUT 

INPUT=0  FOR  SIMLIFIED  DATA  INPUT  FOR  THE  MO.  RIVER 
INPUT=1  FOR  GENERAL  DATA  INPUT 


READ  CONTROL  VARIABLES 


READ (5,2)  KDIA, IDIA, IUF, INPR,  IROCK, IOBS, INPUT, IBUG, ICHB, ICOFF 
@  ,IPLOT,NRES 


OPEN  RESULTS  FILE, WRITE  GENERAL  DATA  ON  IT 


IF  (NRES.GT.O)  WRITE ( NRES ) ICODE 
IF  (NRES.GT.O)  WRITE ( NRES ) TITLE 
IF  (NRES.GT.O) WRITE (NRES) 

IN, N1 , NT, Ml , MAXMA, NN, MEMO, NX, IGR, N1P1 , NTONX, NOBS, 

2  NT3651 , NT3652 , NTRIB, NBANK, I BED , MAXBED , NBED , NTP , NT1 , IDREJ, NTY 
READ (5,1)  IRES, ISED, INDEX, INDEX1, INDSS,  ILIMIT, IEQ, IDSWS 


READ  CALIBRATION  PARAMETERS  AND  DIVERSE  PHYSICAL  PARAMETERS 


READ (5,5)  ALFA , BETA ,C21,C22,FMIX, C ARM 
READ (5,3)  STR, RMDS 
SF( 1 )=STR 

IF( IROCK.EQ. 1)  READ (5,5)  (DMZ ( I ) , 1=1 , N) 

I DE LT= 3  6 O/NT Y 
IFR=0 

WRITE (6,54)  IRES, ISED, INDEX, INDEX1, INDSS,  N, Ml , N1 , NT, ILIMIT, IEQ, 

►  IFR, IDIA, IUF, INPR, KDIA, IGR, IROCK, IOBS, INPUT, NTRIB, NBANK, 

►  IBED, NBED, MAXBED, MAXMA, NOBS, NX, NTP, IBUG, ICHB, ICOFF, IPLOT, 

*  IDREJ , NTY , IDSWS , IDELT , NRES 

WRITE ( 6 ,31)  ALFA, BETA, C21 , C22 , FMIX, CARM 
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WRITE(6,29)  STR, RMDS 


CALL  TRIB  TO  READ  TRIBUTARY  DATA 

CALL  TR I B ( QTR , QSTR , TDELTR , LOCTR , PTR I B , AC , BC , Q , LOCBER , BEROS , 
@  PBANK , CTO , INPUT ) 

NN1=N1+1 

READ  STANDARD  SEDIMENT  SIZES 

READ (5,5)  (DS(K) ,K=1,NN1) 

WRITE (6,20) 

READ  SECTION  DATA,  COMPUTE  RIVER  MILES, AREAS,  HYDRAULIC 
RADII  (LAST  AREA=0.0  INTERPRETED  AS  REQUEST  TO  CALCULATE 
ALL  AREAS  ) 

DO  100  1=1, N 
FORMAT  (F10.2,I10) 

READ  (5,4110)  RMILE(I),  MA(I) 

IF  (I.GT.l)  REACH ( I - 1 ) = ( RMILE ( I ) -RMILE ( I - 1 ) ) *5280 . 0 
MM=MA ( I ) 

I F ( MM . GT . MAXMA )  CALL  ERROR2 ( I , MM  , MAXMA ) 

WRITE  (6,8)  I , RMILE ( I ) ,MA( I ) 

READ (5,4)  ( STAGE 1 ( I , L ) , AREA (I,L),R1(I,L), 

1  B1 ( I , L) , L=1 , MM) 

SECCAL= . TRUE . 

I F ( AREA ( I , MM ) . NE . 0 .  )  SECCAL= . FALSE . 

DO  312  L= 1 , MM 

I F ( L . EQ . 1 . OR . . NOT . SECCAL )  GO  TO  750 

AREA ( I , L ) =AREA (I,L-1)+0.5*(B1(I,L-1)+B1(I,L)) 

1  * ( STAGE1 ( I , L ) -STAGE1 ( I , L- 1 ) ) 

R1 ( I , L)=AREA( I , L)/B1 ( I , L) 

AREA I ( I , L)=AREA( I , L) 

RI ( I , L ) =R1 ( I , L ) 

STAGE I ( I , L ) = STAGE 1 ( I , L ) 

CONTINUE 

WRITE(6, 16) (STAGE1( I , L) , AREA  (I,L),R1  ( I , L) , Bl( I , L) , L=1,MM) 
IF  ( I . EQ . N )  GO  TO  100 

READ  SEDIMENT  CHARACTERISTICS  FOR  REACH 
READ (5,5)  ( CDF ( K) , K=l, NN1 ) 

COMPUTE  D50  FROM  GIVEN  CDF 
DO  25  K=1 , NN1 

IF  (CDF(K) .GT.0.5)  GO  TO  35 
CONTINUE 
K=NN1 

D50( I ) =DS (K-l ) +(DS(K)-DS(K-1 ) ) * ( 0 . 5-CDF(K- 1 ) )/ 

1  (CDF(K)-CDF(K-l ) ) 

TRANSLATE  'D50'  FROM  REACH  TO  SECTION 

IF  (I.NE.l)  DMS ( I )  =  ( D50 ( I ) +D50 ( I  —  1 ) )/2.0 
IF(IDIA.EQ.l)  DMS( I )=D50(  I ) 


P(K)=0 . 40 

D( K) =SQRT(DS( K) *DS ( K+l ) ) 

PT ( I ,  K ) =CDF ( K+ 1 ) -CDF ( K ) 

108  PTT ( I ,  K )  =  PT(I,K) 

WRITE(6, 1490)  1,050(1) 

1  , (CDF(K),K=1,NN1) 

WRITE( 6, 61 ) (PT( I ,  K) , K=1 , N1 ) 

C 

C  INITIALIZE  QSDP  FOR  REACH  I 

C 

QSDP( I )=0 . 0 
100  CONTINUE 
C 

C  WRITE  RIVER  MILES  ON  RESULTS  FILE 

C 

IF(NRES.GT.O)  WRITE (NRES)  ( RMILE ( I ) , 1=1 , N) 

DMS( 1 )=D50( 1 ) 

DMS ( N ) =D50 ( N- 1 ) 

C 

C  GENERATE  STANDARD  TEMPERATURES  FOR  VISCOSITY  TABLE 

C 

N3=72 

TF( 1 )=32 . 0 
DO  203  I=2,N3 

203  TF ( I ) =TF ( I - 1 ) + 1 . 0 
C 

C  CALL  SEDBED  TO  READ  DATA  ON  VERTICAL  VARIATION  OF  BED 

C  SEDIMENT  COMPOSITION 

C 

I F ( I BED . EQ . 1 )  CALL  SEDBED ( NBEL , THBED, PBED) 

C 

C 

C  CALCULATION  OF  UNIT  WEIGHTS  OF  SEDIMENT  FRACTIONS 

C 

Gl=30 . 0 
G2=65 . 0 
G3=93 .0 
DO  211  K=1,N1 
A=D ( K ) 

IF( A. LE . . 004  )  GS(K)=G1 
IF( A. GT . . 004  -AND.A.LE. .062  )  GS(K)=G2 
IF( A. GT. . 062  )  GS(K)=  G3 

211  CONTINUE 
C 

C  PRINT  DIVERSE  GENERAL  DATA 

C 

204  WRITE( 6, 44 ) ( REACH ( I ) , 1=1 ,  NN) 

IF( IROCK.EQ. 1)  WRITE( 6 , 30 ) 

I F ( I ROCK . EQ . 1 )  WRITE(6, 33 )  (DMZ ( 13 ) , 1 3  =  1 , N) 

WRITE( 6, 48 ) ( P (K) , K=1 , N1 ) 

WRITE( 6,79)  (DS ( K) , K=1 , NN1 ) 

WRITE( 6, 62 ) 

WRITE( 6 , 37 ) (  D( K) , K=1 , N1 ) 

WRITE(6, 121) 

WRITE(6, 33 ) (TF( I ) , I=1,N3) 

WR I TE ( 6 , 122) 

WRITE( 6, 37  )(VISC(I),I=1,N3) 


WRITE(6,88) 

C 

C  CONVERSION  OF  VISC(I)  TO  (SQ.FT./S) 

C 

DO  935  1=1 , N3 

935  VISC( I )=VISC( I )*l.E-5 
C 

C  CONVERSION  OF  SED .  SIZE  FROM  MM  TO  FT. 

C 

DO  111  K=1 , NN1 

IF  (K.NE.NN1)  D(K)=D(K)/304.8 
111  DS ( K ) =DS ( K)/304 . 8 

DO  814  1=1 , N 
DMS( I )=DMS( I )/304. 8 
IF ( I . EQ.N)  GO  TO  814 
D50( I )=D50( I )/304. 8 
814  CONTINUE 
C 
C 

C  INITIAL  SUBROUTINE  CALLS  TO  TRANSMIT  ARRAY  ADDRESSES 

C 

CALL  DAWATP ( REACH , STAGE , Q , STAGE 1 ,  D , XAREA , R , B , CTO , SF , FR , ACF , 

1  LOCTR, QTF.,  DMS ,  D50SLS ) 

CALL  DARES I ( Q , DMS , D , XAREA , R , CTO , SF , ACF , C IN , D50SLS ) 

CALL  DATRAS ( D50 , D , PT , SSC , R , CTO , SF, PQS , PDN , PAC ) 

CALL  DASECP  (  STAGE ,  MA ,  STAGE  1 , B 1 , R1 ,  AREA ,  XAREA ,  R ,  B ) 

CALL  DASLOA ( REACH , P , D , PT , PTT , SSC , CTO , SF , ACF , R , B , DW , 

1  DELDS , TDELD , CDEP , KA , VOLOUT , DELT , PQS , PDN , CDEP 1 , TB , ACF1 , 

2  LOCTR, QSTR, PTRIB, TDELTR, LOCBER, BEROS , PBANK, Q, PTA,  D50, 

3  THBED , NBEL , STAGE 1 , PBED , DARM ,  ELI , VAV , QSDP ) 

CALL  DAHYSO ( VOLIN , STAGE 1 , D50 , P , PT , PTT , SSC , CTO , SF , ACF , R , BZ , 

1  TDELD , VOLOUT , LL I M , DELT , T I , TH , TH1 , PTP , ELI , EL2 , PTU , BML , TB , NBEL , 

2  THBED, PBED, CDEP, D,D50SL) 

CALL  DAARMO ( ACF , ACF1 , PT , D , P , CDEP , PTT , VOLOUT , B , SF , D50 , THBED , 

1  PTA , NBEL , STAGE 1 , PBED , Q , R , DARM , ELI , ARM , PAC , TDELD ) 

I F ( I CHB . EQ . 1 . OR . I COFF . EQ . 1 ) CALL  DACHAN  ( ICHBT, ICOFFT, ICHBL, 

@  ICOFFL, REACH , B 1 , AREA , NCHBL , NCOFFL , MA , R1 , ARM , PAC , TDELD ) 
IF(IDREJ.EQ.l)  CALL  DADRED  ( IDRT, IDRL, NDRL , VDRE J , REACH, B, STAGE1 , 
@  CDEP , AREA , R 1 , NBEL , THBED , PT , PTT , PBED , DARM , ELI , MA ) 

C 

C  D50  CALCULATIONS  FOR  SURFACE  LAYER 

C 

DO  915  1=1, NN 

D50SL( I ) =D50 ( I ) * ( 1 . O-ACF { I ) ) 

DO  915  K=1,N1 

D50SL( I )=D50SL( I ) +ARM( I ,K)*D(K) 

915  CONTINUE 

DO  916  1=1, N 

916  IF(I.NE.l)  D50SLS ( I ) = (D50SL( I ) +D50SL ( 1-1 ) )/2 . 0 
■  D50SLS( 1 )=D50SL( 1 ) 

D50SLS ( N ) =D50SL( N- 1 ) 

C 

C  BEGIN  LOOP  ON  TIME  STEPS 

C 

IFLAG=0 

ITIME=0 

KYR=0 

DO  5000  IT=1 , NT 
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ITIME=ITIME+IDELT 


LOAD  NEW  DISCHARGES , TEMPERATURE , AND  D/S  STAGE ( I F  IDSWS.NE.l) 
CALL  I NFLOW ( Q , QTR , LOCTR , TEMPF , STAGE , CPPMUP , QTR I B ) 

COMPUTE  NEW  TRIBUTARY  SEDIMENT  LOADS 
CALL  TRIBQS 

LOAD  D/S  BOUNDARY  CONDITION 

IF  (IDSWS.EQ.l)  CALL  START ( STAGE , Q , STAGE 1 , DMS , B , XAREA , MA ,  B 1 , 

@  R1 , REACH , SF , AREA ) 

KDREJ=0 

CALL  DREDGE  TO  EXECUTE  DREDGING 
IF  (IDREJ.EQ.l)  CALL  DREDGE 

CALCULATE  VISCOSITY  FROM  GIVEN  TEMPERATURE  IN  EACH  TIME  PERIOD 
DO  900  1=1 ,N3 

I F ( TEMPF . LE . TF ( I ) )  GO  TO  910 
00  CONTINUE 

CALL  ERROR3 (IT, ITIME, TEMPF, TF(N3 ) ) 

I=N3 

10  VIS=VISC(I) 

VIS  LOG= ALOG 1 0 ( V I S ) 

ESTIMATING  FALL  VELOCITY  BY  RUBEY  EQN. 

DO  214  K=1,N1 

FI 1=3 6 . 0*VIS**2/( 32 . 2*D( K) **3*1 . 65 ) 

F1=SQRT ( 2 . 0/3 . 0+F1 1 ) - SQRT ( FI 1 ) 

W(K)=F1*SQRT(1. 65*32. 20*D(K) ) 

IFv XBUG.EQ. 1)  WRITE(6, 34)  K,W(K) 

4  FORMAT ( 10X, ' W( 1 , 12 ,  1  )  = 1  , F10 . 4, '  (FT/S)') 

14  CONTINUE 


02  IPRINT=2 

IF( IT . LE . 2 )  INTP=1 

I F ( I T . GT . 2 )  INTP=INPR 

I F( I TIME . EQ . 360 )  INTP=1 

IF( ( IT/INTP ) * INTP . NE . IT)  IPRINT=0 

IF( IT.EQ.NT)  IPRINT=2 

CALL  TO  WATPRO  FOR  BACKWATER  COMPUTATION  IN  EACH  TIME  STEP 
CALL  WATPRO 

CALCULATION  OF  MAIN  FLOW  PROPERTIES  AT  EACH  SECTION 

DO  700  1=1 ,N 

VAV ( I )=Q( I ) /XAREA ( I ) 

SE ( I ) =FR ( I ) * ( VAV (I)**2)/(8.0*32.2*R(I) ) 

DW ( I ) =XAREA ( I ) /B ( I ) 
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700  CONTINUE 
C 

C  CALL  TO  SLOAD  FOR  SEDIMENT  CONTINUITY  COMPUTATION 

C 

CALL  SLOAD 
C 

c 

C  MODIFICATION  OF  SECTION  PROPERTIES  AFTER  SEDIMENTATION  IN  EACH 

C  TIME  PERIOD 

C 

DO  726  13=2 ,NN 

726  Y ( I 3 ) = ( CDEP (13-1) +CDEP (13) )/2.0 
Y ( 1 ) =CDEP ( 1 ) 

Y ( N ) =CDEP ( N- 1 ) 

C 

C  MODIFICATION  BECAUSE  OF  ROCK  OUTCROP 

C 

IF ( I ROCK . EQ . 0 )  GO  TO  737 
DO  736  13=1 , N 

736  IF(Y( 13) .GT.DMZ( 13) )  Y( 13 )=DMZ( 13 ) 

737  CONTINUE 
C 

C  MODIFICATION  BY  CHANGING  INDEX  ELEVATIONS  OF  X-SECTIONS 

C 

DO  720  1=1 ,N 
MM=MA( I ) 

DO  720  L= 1 , MM 

STAGE 1 ( I , L)=STAGEI ( I , L)-Y( I ) 

720  CONTINUE 
C 

C  TRANSLATE  D50(I)  AND  ACF(I)  FROM  REACHES  TO  SECTIONS 

C 

IF( IBUG.EQ. 1)  WRITE (6,711)  (ACF( I ) , 1=1, NN) 

711  FORMAT ( 5X , ' ACF  :  ' ,8E12.5) 

ACF ( 1 )=ACF( 1 ) 

ACF ( N ) =ACF ( N- 1 ) 

DMS ( 1 ) =D50 ( 1 ) 

DMS ( N ) =D50 ( N- 1 ) 

D50SLS( 1 ) =D50SL ( 1 ) 

D50SLS(N) =D50SL ( N- 1 ) 

DO  731  1=1, NN 
DH( I )=ACF( I ) 

IF  ( I .EQ. 1 )  GO  TO  731 
DMS ( I ) = ( D50 ( I ) +D50 ( I - 1 ) )/2 . 0 
D50SLS ( I )=(D50SL( I ) +D50SL( I - 1 ) )/2 . 0 
IF( IDIA.EQ. 1)  DMS ( I ) =D50 ( I ) 

ACF ( I ) = (  DH(I)+  DH(I-l))/2. 

731  CONTINUE 

IF( IBUG.EQ. 1)  WRITE( 6,711)  ( ACF( I ) , 1=1 , N  ) 

C 

IF( IBUG.EQ. 0)  GO  TO  5021 
713  WRITE (6,82)  I TIME 
DO  725  1=1, N 
WRITE( 6,27)  I 
DO  725  L=1 , MM 

WRITE (6,84) STAGE 1 ( I , L ) , AREA( I,L),R1(I,L) 

725  CONTINUE 
C 


PRINT  OUT  RESULTS 


C 

c 

5021  YR=ITIME/365 . 0 
N2=NTP* IDELT 
NLINE=27 
N5=N/NLINE+1 
N6=l 

N7=N6+NLINE-1 
I F ( N7 . GT . N )  N7=N 
IT1=IT* IDELT 
IDAY=IT1-KYR*360 

IF( ( IT1/360 ) *360 . EQ . IT1 )  KYR=KYR+1 
C 

C  WRITE  TIME  HEADING  ON  RESULTS  FILE 

C 

IF(NRES.GT.O)  WRITE(NRES)  IT, I T I ME , I DAY , K YR 
DO  811  13=1 , N5 

IF  (IPRINT.NE.O)  WRITE (6,70)  ITIME , YR 
IF  (IPRINT.NE.O)  WRITE ( 6,71) 

DO  810  I 1=N6, N7 
I=N+1- I 1 

DMM=DMS( I ) *304. 8 
DSLMM=D50SLS ( I ) *304 . 8 
DEP=Q( I )/( B( I ) *VAV ( I ) ) 

FFR=8 . 0*32 . 2*DEP*SE( I ) / ( VAV ( I ) *  *  2 ) 

IF ( IT.LE.NTY)  WSEL( I, IT ) =STAGE ( I ) 

ITA=IT- ( IT/NTY ) *NTY 
IF(ITA.EQ.O)  I T A=NTY 
DWS=0 

IF( IT.GT.NTY)  DWS=WSEL( I , ITA)- STAGE ( I ) 

CBAR=CTO( I ) *2 . 65E6 
IF(I.EQ.N)  GO  TO  809 

IF( IPRINT.NE.O. AND. LLIM( 1 ) .EQ.O)  WRITE(6,75)  VOLOUT(I) 

IF( I PR I NT . NE . 0 . AND . LLIM( I ) . EQ . 1 )  WRITE(6,76)  VOLOUT(I) 

809  IF  (IPRINT.NE.O)  WRITE  (6,72) 

1  I , RMILE ( I ) , B( I ) , STAGE ( I ) , Q( I ) , DEP, VAV ( I ) , 

2  SE ( I ) , Y ( I ) , DSLMM ,  STAGE1 ( 1,1), DMM, ACF ( I ) , CBAR, FFR, DWS 
IF  (NRES.LE.O)  GO  TO  810 

C 

C  WRITE  CURRENT  VALUES  ON  RESULTS  FILE 
C 

WRITE  (NRES )  B( I ) , STAGE ( I ) , Q( I ) , DEP , VAV( I ) , SE ( I ) , 

1Y ( I ) , DSLMM, STAGE 1 (1,1), DMM, ACF ( I ) , CBAR, DWS 
WRITE  (NRES)  (PT( I , K) , K=1 , N1 ) 

810  CONTINUE 
N6=N7+ 1 
N7=N6+NLINE-1 

IF (N7 . GT . N)  N7=N 
IF  (N6.GT.N7)  GO  TO  105 

811  CONTINUE 

105  IF  (NRES.GT.O)  WRITE (NRES)  (QTR( I ) , 1=1 , NTRIB ) , 

1 ( QSTR ( I ) , I = 1 , NTR I B ) 

C 

C  RECALCULATION  OF  SEDIMENT  DIA.  AFTER  SEDIMENTATION  IN  EACH  PERIOD 

4560  DO  1110  1=1, NN 
CDF ( 1 )=0 . 0 
DO  1112  K=2 , NN1 


1112 

1113 


1111 

1110 

C 

C 

c 


1125 

C 

C 

C 


728 

C 

C 

C 

C 

C 

4999 


IF( IBLR . EQ . 0)  CDF ( K ) =CDF ( K- 1 ) +PT ( I , K- 1 ) 

IF( IBLR.EQ. 1)  CDF ( K ) =CDF ( K- 1 ) +PAC ( I , K- 1 ) 

I F ( CDF ( K ) . GE .0.50)  GO  TO  1113 
CONTINUE 

D50 ( I ) =DS{ K-l )  +  ( 0  . 50-CDF ( K-l ) )/{ CDF ( K) -CDF(K- 1 ) ) 
k  * ( DS ( K ) -DS ( K- 1 ) ) 

I F ( CDF { K ) . EQ .0.50)  D50(I)=DS(K) 

D50MM=D50 ( I ) *304 . 8 

IF( IBUG.EQ. 1)  WRITE(6/ 1111)  I , D50MM, ( PT( I , K) , K=1 , N1 ) 
FORMAT ( 5X, ' 1=’ , I3,2X, 'D50=' , F6 . 3 , 2X, ' PT :  ' ,9F9.5) 

CONTINUE 

D50  CALCULATION  FOR  SURFACE  LAYER 

DO  1125  1=1 , NN 

D50SL( I )=D50( I ) * ( 1 . O-ACF ( I ) ) 

DO  1125  K=1,N1 

D50SL( I )=D50SL( I ) +ARM( I/K)*D(K) 

CONTINUE 

TRANSLATES  D50  FROM  REACH  TO  SECTION 

DMS( 1)=D50( 1) 

DMS(N)=D50(N-1 ) 

D50SLS( 1 )=D50SL( 1 ) 

D50SLS(N)=D50SL(N-1 ) 

DO  728  I=2,NN 

DMS ( I ) = ( D50 ( I ) +D50 ( I - 1 ) ) /2 . 0 
D50SLS( I )=(D50SL( I ) +D50SL( 1-1) )/2.0 
IF( IDIA.EQ. 1)  DMS( I )=D50( I ) 

CONTINUE 


CALCULATING  MAXM.  VALUE  OF  TIME  INTERVAL  WHICH  WILL  NOT  VIOLATE 
SEDIMENT  CONTINUITY  THROUGH  REACHES 

DMIN=DELT( 1,1) 

IF(IT.EQ.l)  NVI=0 
IF(IT.EQ.l)  VDEGR=0 
IF(IT.EQ.l)  VDEGRP=0 
VPROF=0 

DO  753  11=1, NN 

CONN=REACH( I1)*(B(I1)+B(I1+1) )/2 . 0* ( 1 . 0-P( 1 ) ) 

VDEGR=VDEGR+VOLOUT ( I 1 ) *CONN 
VPROF=VPROF  + ( Y( 1 1 ) +Y( 1 1  +  1 ) )/2.0* CONN 
DO  753  Kl=l , N1 
DINT=FLOAT( IDELT) 

IF ( DINT . GT . DELT( I 1 , K1 ) )  NVI=NVI+1 
IF(DELT( II, Kl) .GE.DMIN)  GO  TO  753 
DMIN=DELT( I 1 , K1 ) 

CONTINUE 

VT1= VDEGR* ( 2.65*62. 5/2000 . )/( ITIME/365 .0) 

VT2=VPROF* (2.65*62. 5/2000 . )/( ITIME/365 .0) 

VT3= ( VDEGR- VDEGRP ) * ( 2 . 65*62 . 5/2000 . )/( IDELT/365 .0) 

VDEGRP=VDEGR 

IF( I PR I NT . EQ . 2 )  WRITE(6,43)  DMIN, NVI , VDEGR, VT1 , VPROF, VT2 , VT3 
FORMAT (  /, 15X,70( ’*’),/, 15X, ' *' ,68X, '*',/, 15X, ' *' ,68X, ’ *' , 

*  /, 15X, ' *' ,9X, 'MAXM.  VALUE  OF  TIME  INTERVAL  WHICH  WILL  NOT 
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*  'VIOLATE' ,8X, '*' ,/,15X, ,23X, 'SEDIMENT  CONTINUITY  IS', 

*  23X, 15X, ' *' , 28X, F6 . 2 , 2X, 'DAYS' ,28X, ' *' ,/,15X, , 

*  28X, 13 ( 27X, 15X, '*' ,20X, 'TOTAL  NO.  OF  VIOLATIONS  =' , 

*  I4.19X,’*',  /, 15X, '*' ,68X, 15X, ' *' 

*  ,  3X, 'DEGR.VOL. (SED.CONT. )  =' , E12 . 5, 2X, ' CFT' , ’  (',E12.5,2X, 

*  'TONS/YR  )' ,T85, 15X, , 

*  ,  3X, 'DEGR.VOL. (PROFILE)  = ' , E12 . 5 , 2X, ' CFT ' , '  (',E12.5,2X, 

*  'TONS/YR  )' ,T85, 15X, , 

*  68X, ' * ' , /  ,15X, '*' ,13X, 'CURRENT  SCOUR  RATE  =',E12.5, 

*  '  TONS/YR' , T85 15X, ' * ' , 68X, 15X, 70( ' * ' ) , // ) 

5000  CONTINUE 

WRITE (6, 7) 

C 

C 

1  FORMAT (1015) 

749  FORMAT ( 1115 ) 

2  FORMAT (1215) 

3  FORMAT ( 2 F14. 7 ) 

4  FORMAT (4F10. 3) 

5  FORMAT ( 6F10 . 4 ) 

6  FORMAT (8F10. 4) 

7  FORMAT ( ' 1 ' ) 

8  FORMAT(//,5X, 'SECTION' , 13, '  RMILE=' , F7 . 2 , 

@  '  MA=' , 13, T40, 'STAGE' ,9X, 'AREA' ,11X, 

1  'HYD.  RAD. ', 5X, ' SURF.  WIDTH ' ,/, T05 , 93 ( 1H- ) ) 

9  FORMAT(20X,  'NO.  OF  SECTIONS= ' , 1 3 , //) 

10  FORMAT ( /// , 2 OX ,  ' NO .  OF  SUBCHANNELS  =',I5,//) 

11  FORMAT(10X, 'WHOLE  SECTION' ,//,6X, 'STAGE' ,9X, 'AREA' ,11X, 'HYD.  RA 
*D . ' , 5X, 'WAT. SUR. WIDTH' ,/) 

12  FORMAT ( / , 5X , ' DHO ( L , I ) ' , / ) 

13  FORMAT (/, 5X, ' D50( I ) ' , /) 

14  FORMAT (15A4) 

15  FORMAT ( '1' ,////, 10X,70( ) ,/,10X, , 68X, '*’,/, 10X, ’ *’  ,4X, 

$  15A4, 4X, ,/,10X, '*' ,68X, , /, 10X, 70 ( ' * ' ),////) 

16  FORMAT ( ( T37 , 4( F10 . 3 , 5X) ) ) 

17  FORMAT (/, 15X, ' D50  = ' , F6 . 4, IX, ' MM . ’ ) 

18  FORMAT (2 OX, 'REACH  LENGTHS (FT. )  :',/) 

19  FORMAT ( 25X,  'REACH.  .',13,'-.'  ,2X,F10.2,/) 

20  FORMAT (///) 

21  FORMAT ( 2 OX, 'DISCHARGE (CFS)  :',/) 

22  FORMAT( 30X, 8F10. 0) 

23  FORMAT ( / , 5X , ' I TOB ( L ) ' , / ) 

30  FORMAT ( / , 5X , ' DMZ ( I ) ' , / ) 

31  FORMAT (//,5X, ' ALFA= ' , F6.3,2X, ' BETA= ' , F6 . 3 , 2X, ' C21=' , F6 . 3, 

*  2X, ' C22= ' , F6 . 3 , 2X, 'FMIX=' ,F6.3,2X, ' CARM= ' ,F6.3,//) 

33  FORMAT  (15X,8F10.1) 

51  FORMAT (3F10. 4) 

53  FORMAT (/, 5X, ' Q(NI ) ' ) 

54  FORMAT (  //, 5X, ' IRES=' , I 1 , 2X, ' I SED= ',11, 3X, ' INDEX= ',11, 3X, 

@' INDEX1= ' , I1,3X, ' INDSS= ' , II , 4X, ' N=' , 13 , 4X, 'Ml=' , 12, 4X, 'Nl=' , 12 
@.2X, ' NT= ' , 15, 2X, ' ILIMIT= ' , I2,2X, ' IEQ=' , 12, 2X,  ' IFR=' , 12,//, 

@  5X, ' IDIA= ' , 12, 2X, ' IUF= ' , 12, 2X, ' INPR=' , I4,2X, ' KDI A= ' , 12, 

@  2X, ' IGR= ' , 12, 2X, ' IROCK= ' , 12, 2X, ' IOBS=' , 12, 2X, ' INPUT=' , 12, 

@  2X, ' NTRIB=' , 12 , 2X, ' NBANK=' , 13, 2X, ' IBED=' , 12,//, 5X, ' NBED= ' , 

@  12, 2X, ' MAXBED= ' , 12, 2X, ' MAXMA= ' , 12, 2X, 'NOBS=' , 12, 2X, 'NX=' , 12, 

@  2X, ' NTP= ' , 14, 2X, ' IBUG= ' , 12, 2X, ' ICHB=' , 12, 2X, ' ICOFF=' , 12, 

@  2X, ' IPLOT= ' , 12, 2X, ' IDREJ= ' , 12, 2X, ' NTY= ' , 13,//, 5X, ' IDSWS=' , 12, 

@  ’  IDELT= ' , 13 , 2X, ' NRES= ' , 13 ) 
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56  FORMAT (//////, 5X, 'MA(I) ' ) 

58  FORMAT (12X, 1015) 

68  FORMAT(25X/ ' SECTION. 13,/) 

74  F0RMAT(/,20X, 'TIME  INTERVAL= ’ , 14, 2X, ' DAYS ' , //) 

88  FORMAT (///, 2 8X,  'SEDIMENT  CONCENTRATION  IS  GIVEN 

*AT  MOST  UPSTREAM  SECTION  AS  INPUT' ,/, 28X, 65( '-') ,//) 

91  FORMAT (8F10. 2) 

92  FORMAT ( 8F10 . 7 ) 

121  FORMAT (/, 5X, ' TF  ( F ) ' ) 

122  FORMAT ( / , 5X ,  '  V I  SC  (  SQ .  FT . /S  *E05)',/) 

125  FORMAT (/, 5X, ' TEMPF' ) 

27  FORMAT ( // , 20X , 'SECTION. . . ' , I3,//,7X, 'STAGE' ,7X, 'AREA' ,9X, 

* ' HYD . RAD . ’ , / ) 

29  FORMAT (//, 5X, 'STR=' ,F10.7,4X, ' RMDS= ' ,F8.1,//) 

36  FORMAT(/, 5X, ' SSC{ I , K) ' ) 

37  FORMAT ( 15X, F10 . 4, 1X,F10.4, IX, F10.4, IX, F10 . 4, IX, F10 . 4, 1X,F10.4, 

*1X, F10 . 4, IX, F10 . 4 , IX, F10 . 4) 

38  FORMAT ( / , 5X , ' BB ( I ) ' ) 

39  FORMAT ( 12X, 15) 

40  FORMAT ( / , 5X , ' DW ( I ) ' ) 

41  FORMAT ( / , 5X, 'CDF( I , K ) : ' , (T17 , 10F10 . 4) ) 

42  F(  MAT ( / ,  5X,  'QST(  I  )  '  ) 

44  FC  RMAT ( / , T2 ,  ' REACH  LENGTHS :',( T17 , 10F10 . 0 ) ) 

45  FORMAT ( / , 5X , ' D50G ( I ) ' ) 

46  FORMAT ( / , 5X , ' VAV ( I ) ' ) 

47  FORMAT(/,5X, ' IDELT  ' ) 

48  FORMAT(/,5X, 'POROSITY: ' , (T17 , 10F10 . 4 ) ) 

49  FORMAT (/////, 1 OX, 'NO. OF  SECTIONS= ’ , 13 , //, 10X, ' NO. OF  SEGMENTS=' , 
*12,//, 10X, 'NO.  OF  SED .SIZE  FRACTIONS=' , 12,///) 

50  FORMAT ( / , 5X, ' SF( I ) ' ) 

57  FORMAT(/, 5X, 'STAGE (Nl) ' ) 

59  FORMAT (/////////////, 2 5X, 75 ( '*'),///, 27X, 'WATER  SURFACE  PROFILE  RE 
♦MAINS  THE  SAME  AS  IN  THE  PREVIOUS  TIME  PERIOD' ,///, 25X, 75 (’*’), //) 

61  FORMAT( (TS3, 11F6.3) ) 

62  FORMAT ( / , 5X ,  '  D  (  K  )  '  ) 

64  FORMAT (/,5X, 'VI S=' ,F10.7,2X,  ' SQ . FT . /SEC ' , /) 

66  FORMAT ( 15X, F10 . 6 , IX , F10 . 6 , IX , F10 . 6 , 1X,F10.6, IX, F10 . 6, IX, F10 . 6, IX, 
*F10. 6, IX, F10. 6, IX, F10. 6) 

67  FORMAT ( ///// , 10X , 25 (’*'), 4X, 'WATER  SURFACE  PROFILE  CALCULATIONS 
♦AFTER' , IX, I4,2X, 'DAYS' ,4X,25( ),///) 

70  FORMAT ( ' 1 ' , /  , 30X, 'WATER  SURFACE  AND  BED  PROFILE  AFTER' , IX, 14, 2X, 

* 'DAYS' , IX, ' ( ' , F6.2, IX, 'YEARS  ) ' ,/,30X, 62 ( ' -' ) ,/) 

71  FORMAT (  IX, 'SEC. ',2X,'RM',3X,'B(FT.)',2X, 'STAGE', 2X,'Q(CFS.)'  , 

♦IX, 'DEP(FT) ' , IX, 

* ’ V(FT/S) ' , IX, 'EN. SLOPE' , 3X, 'DZ(FT) ' , IX, 'D50S(MM) ' , IX, 'BED  EL (FT) ' , 
♦IX, 'DSO(MM) '  ,2X, ' ACF' , 3X, ' ADEP ( FT ) ' , IX, 'CM(PPM)' ,2X, 'FF' ,2X, 

*  'DWS(FT)',  /, IX, 132( 1H- ) ) 

72  FORMAT ( IX, 13 , IX, F5 . 1 , 2X, F5 . 0 , 2X, 

*  F7 . 2  ,  IX,  F7 . 0,  IX,  F6 . 2 , 2X,  F6 . 3 ,  IX,  F9 . 6, 

*  IX, F7 . 3 ,  IX, F7 . 3 , 3X, F8 . 2 , 2X, F6 . 3 , 2X, F6 . 3 , 11X, F7 . 2 , IX, F4. 3 , IX, F7 . 3 ) 

75  FORMAT( 101X, E12 . 4) 

76  FORMAT ( 1Q1X,E12.4,1X, '*' ) 

79  FORMAT (/, IX, 'PARTICLE  SIZES: ’ , (T17, 10F10.4) ) 

82  FORMAT (////  , 10X, ’ MODIFIED  SECTION  PROPERTIES  AFTER',  IX, 14, IX, 
♦'DAYS' ,/, 10X,41( '-' ),/  ) 

84  FORMAT (3X,F10.3,3X,F10.3,3X,F10.3,3X,F10.3,3X,F10.3,3X,F8.3, 3X, 

*F8 . 3 , 3X, F8 . 3 , 3X, F8 . 3 ) 

413  FORMAT ( / , 5X , ' SL1 ( I )  ( BED  SLOPE* 10000 )', /) 


i  •’«  ^ •r.  •*.  •*.  * 


1490  FORMAT*/, T20, 'REACH' ,  13,  '  D50=\F7.3,'  CDF,  PDF:  '  ,  (T51, 12F6. 3  )  ) 
C 

9000  RETURN 
END 
C 
C 


SUBROUTINE  INFLOW  ( Q, QTR, LOCTR, TEMPF, STAGE, QSUPS , QTRIB) 


DIMENSION  Q(N) , QTR(NTRIB) , LOCTR(NTRIB) , QTRIB(NTRIB) , STAGE(N) 


COMMON/D I MS/N , N 1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , N 1 P 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED , MAXBED , NBED , NTP , NT1 , IDRE J , NTY 
COMMON/SCALR/ INDEX, I, IDELT,VIS, ITIME,GAMA, I FLAG, IT, INDSS, I FLAG 1 , 
1  ILIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , IBUG, ICHB, ICOFF 


IF  (IT.EQ.l)  ITDAT=0 


READ  NEW  INFLOWS  IF  NEEDED 


25  IF  (ITIME.LE. ITDAT)  GO  TO  100 

DO  30  LT=1, NTRIB 

QTR(LT)=QTRIB(LT) 

30  CONTINUE 

TEMPF=TFREAD 
STAGE ( 1 ) = YREAD 
QSUPS=QSREAD 
ITIMEP=ITDAT 

READ  ( 5 , 1000 , END=900 )  ITDAT,  TFREAD, (QTRIB(LT) , LT=1, NTRIB) , YREAD, 
1  QSREAD 

WR I TE ( 6 , 2 002 )  I TDAT , TFREAD , QTR I B , YREAD , QSREAD 
2002  FORMAT (T5, 'TIME-DEPENDENT  DATA  READ  FOR  ITDAT= ' , I 5 , ' : ' , F4 . 0 , 

1  ( T52 , 9F8 . 1 ) , /) 

GO  TO  25 

1000  FORMAT  ( 14, F4. 0, (T9, 9F8 . 0) ) 

C 

C  INTERPOLATE  BETWEEN  VALUES  AT  PREVIOUS  TIME  STEP  AND  THOSE 

C  MOST  RECENTLY  READ 


100  FTIME=ITIME 

FINT=(FTIME- ITIMEP )/( ITDAT- ITIMEP ) 

DO  125  LT=1, NTRIB 

QTR ( LT ) =QTR ( LT ) +  F I NT  * ( QTR I B ( LT ) - QTR ( LT) ) 
125  CONTINUE 

TEMP  F=TEMPF+FINT* (TFREAD-TEMPF) 

STAGE ( 1 ) = STAGE ( 1 ) +F I NT* ( YREAD- STAGE ( 1 ) ) 
QSUPS=QSUPS+FINT* (QSREAD-QSUPS ) 

ITIMEP=ITIME 


COMPUTE  WATER  DISCHARGES  AT  ALL  COMPUTATIONAL  POINTS  BY 
ACCUMULATION  OF  TRIBUTARY  INFLOWS 


Q(N)=QTR(1) 
LT=2 
LM=N 
LM=LM- 1 


10 


IF  (LM.EQ.O)  GO  TO  301 
Q ( LM ) =Q ( LM+ 1 ) 

IF  (LM.NE.LOCTR(LT) )  GO  TO  10 
Q(LM)=Q(LM)+QTR(LT) 

LT=LT+1 
GO  TO  10 
C 

C  PRINT  MA INSTEM  DISCHARGES  AT  TRIBUTARY  INFLOW  POINTS 

C 

301  IF  (IBUG.NE.O)  WRITE  (6,2000)  IT, ITIME, NTRIM, 

1  (Q( LOCTR( K) ) , K=1 , NTRIB) 

2000  FORMAT  ( IX, ' IT= ' , 14, '  ITIME=',I4,’  NTRIM=' ,  II,  1  FLOWS:', 

1(T35, 12F8.0) ) 

C 

999  RETURN 

900  WRITE  (6,2001)  ITIME,  ITDAT 

2001  FORMAT  (/,20(1H*),'  ERROR:  ITIME=',I5, 

1'  EXCEEDS  LAST  INFLOW  DATA  ITDAT=',I5) 

STOP 

END 

C 

C  - 

SUBROUTINE  SEDBED  ( NBEL , THBED , PBED ) 

C  - 

C 

C  THIS  SUBROUTINE  READS  ADDITIONAL  SEDIMENT  CHARACTERISTICS 

C  IN  CASE  OF  VERTICAL  VARIATION  OF  ORIGINAL  BED  MATERIAL 

C 

C  NBEL( I )=  NO.  OF  ELEVATIONS  AT  WHICH  SED.SIZE  DISTR.  CHANGES 

C  AT  REACH  I 

C  THBED ( I ) =  THICKNESS  OF  HOMOGENEOUS  SED.SIZE  DIST.  IN  REACH  I 

C  PBED( I , K, L)=  SED.SIZE  DISTR. (IN  FRACTION)  ATREACH  I, 

C  FRACTION  K  IN  SEDIMENT  LAYER  L 

C 

C 

DIMENSION  NBEL(NN) , THBED (NN) , PBED ( NN , N1 , MAXBED ) 

COMMON/D I MS/N , N1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , NIP 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED , MAXBED , NBED , NTP , NT 1 , I DRE J , NTY 
C 

READ( 5,10)  (NBEL( I ) , 1=1, NN) 

WRITE(6, 15) 

WRITE( 6 , 20 )  ( NBEL ( I ) , I = 1 , NN ) 

C 

READ (5,25)  ( THBED( I ) , 1=1 , NN) 

WRITE (6,30) 

WRITE (6,35)  ( THBED ( I ) , I = 1 , NN ) 

C 

WRITE (6, 40) 

DO  100  1=1, NN 
LL=NBEL( I ) 

IF(LL.EQ.O)  GO  TO  100 
D"'  100  L=  1 ,  LL 

READ( 5,25)  (PBED( I , K, L) , K=1 ,N1 ) 

WRITE (6,35)  ( PBED ( I , K, L ) , K=1 , N1 ) 

100  CONTINUE 
C 

10  FORMAT (1215) 

15  FORMAT ( / , 5X ,  ' NBEL ( I ) :  '  ,  / ) 


d 


FORMAT (10X, 1215) 

FORMAT ( 6F10 . 3 ) 

FORMAT ( / , 5X , ' THBED ( I )  :',/) 
FORMAT( 10X, 8F10 . 3 ) 

FORMAT ( / , 5X , ' PBED ( I , K , L )  :',/) 

RETURN 

END 


k*  w  >|*  n 


SUBROUTINE  START ( STAGE , Q , STAGE 1 , DMS , B , XAREA , MA , B1 , R1 , REACH , 

1  SF, AREA ) 

THIS  SUBROUTINE  CALCULATES  WATER  SURFACE  ELEVATIONS  AT  THE 
DOWNSTREAM  BOUNDARY  ASSUMING  UNIFORM  FLOW 

DIMENSION  STAGE ( N ) , Q ( N ) , STAGE 1  ( N , MAXMA ) , DMS ( N ) , B ( N ) , 

@  XAREA(N) , MA(N) , B1 (N, MAXMA) , R1 (N, MAXMA) , REACH (NN) , SF(N) 

@  , AREA (N, MAXMA) 

COMMON/DIMS/N , N1 , NT , Ml , MAXMA , NN ( MEMO , NX , I GR , NIP 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED, MAXBED, NBED , NTP , NT1 , IDREJ, NTY 
COMMON/SCALR/ INDEX, I , IDELT, VI S , ITIME, GAMA, I FLAG , IT, INDSS, IFLAG1 , 
1  ILIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 
2IUF, STR, CARM, CPPMUP, IBUG, ICHB, ICOFF 

1=1 

S1=STR 

A2=ALOG10( SI* 1000.0) 

I 1=MA( I ) 

BTR=B1(I, II) 

ITER=0 
D50F=DMS( I ) 

QU=Q(I)/3TR 

A1=ALOG10(QU/SQRT(1. 65*32. 2*D50F  **3) ) 

VFD=10 . 0** ( •  0. 4812+0. 3761*Al+0. 3 106*A2) 

VEL=VFD*SQRT( 32.2*1. 65*D50F  ) 

ARE=Q( I )/VEL 
DO  150  L=l, II 

I F ( AREA ( I , L ) . GT . ARE )  GO  TO  200 
CONTINUE 

C=( ARE- AREA ( I , L- 1 ) )/( AREA( I , L ) -AREA( I , L- 1 ) ) 

STAGE ( I )=STAGE1 ( I , L-l ) +C* ( STAGE1 ( I , L ) -STAGE1 ( I , L-l) ) 

B( I )=B1 ( I , L- 1 ) +C* (B1 ( I , L) -B1 ( I ,  L-l ) ) 

BTR1=B( I ) 

ERR=ABS ( BTR1/BTR- 1.0) 

ITER=ITER+1 

IF( ERR . LE . 0 . 02 )  GO  TO  500 

IF( ITER. GT. 20)  GO  TO  500 

BTR=BTR1 

GO  TO  100 

CONTINUE 

RETURN 

END 


SUBROUTINE  DACHAN  ( ICHBT, ICOFFT, ICHBL, ICOFFL, REACH, B1 , 
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@  AREA , NCHBL , NCOFFL , MA ,  R1 ) 

C  - 

C 

C  THIS  SUBROUTINE  READS  AND  COMPUTES  THE  EFFECTS  OF  CHANNEL-WIDTH 

C  CHANGES  AND  CHANNEL  CUTOFF  AS  FUNCTION  OF  TIME 

C 

DIMENSION  ICHBT(NT3651 ) , ICOFFT(NT3651 ) , ICHBL(NT3651,N) , 

@  ICOFFL(NT3651 , NN) , B1 (N, MAXMA) , REACH(NN) , ARE A ( N , MAXMA ) , 

@  NCHBL ( NT3651 ) , NCOFFL (NT3 651 ) , MA(N) , R1 (N, MAXMA) 

COMMON/D I MS/N , N1 , NT, Ml , MAXMA , NN , MEMO , NX , I GR , NIP 1 , NTONX , NOBS , 

I  NT3651 , NT3652 , NTRIB, NBANK, I BED , MAXBED , NBED , NTP , NT1 , IDREJ,NTY 
COMMON/SC ALR/ INDEX, L6, IDELT, VIS, ITIME,GAMA, I FLAG, IT, INDSS, IFLAG1, 
1  ILIMIT, MM1 , IEQ, IRES, ISED , ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR, CARM, CPPMUP , I BUG, ICHB, ICOFF 
C 

C  ICHBT( IT)=TIME  INTERVALS  IN  WHICH  CHANNEL  WIDTHS  ARE  CHANGED 

C  I COFFT (IT) =T I ME  STEPS  IN  WHICH  CUTOFFS  ARE  INCORPORATED 

C  ICHBL(NI )=LOCATION  (NODE  NO.)  OF  CHANNEL-WIDTH  CHANGES 

C  IN  TIME  INTERVAL  IT 

C  ICOFFL(NI )=LOCATION  (REACH  NO.)  OF  CUTOFFS  IN  TIME  STEP  IT 

C  NCOFFT=TOTAL  NO.  OF  TIME  STEPS  IN  WHICH  CUTOFFS  ARE  MADE 

C  NCOFFL ( II  )  =  TOTAL  NO.  OF  CUTOFF-REACHES  IN  TIME  STEP  II 

C  NCHBT=  TOTAL  NO.  OF  TIME  STEPS  IN  WHICH  CHANNEL  WIDTHS 

C  ARE  CHANGED 

C  NCHBL ( I 1 ) =  TOTAL  NO.  OF  NODES  OF  CHANNEL-WIDTH  CHANGES 

C  IN  TIME  STEP  II 

C 

C  READ  PARAMETERS  FOR  CHANGING  WIDTH 

C 

IF ( ICHB.EQ.O)  GO  TO  100 
WRITE (6, 19) 

READ (5, 10)  NCHBT 

READ( 5, 10)  ( NCHBL (II), 11=1, NCHBT) 

WRITE ( 6, 12 ) NCHBT 
WRITE ( 6 , 14) 

WRITE(6, 15)  (NCHBL( II) , 11=1, NCHBT) 

10  FORMAT (1215) 

12  FORMAT ( // , 10X, 1 NCHBT= ' , 13 , //) 

14  FORMAT ( // , 5X , ' NCHBL (II)1,/) 

15  FORMAT( 15X, 1215) 

C 

READ ( 5 , 10)  ( ICHBT( II) , 11=1, NCHBT) 

WR I TE ( 6 , 16) 

WRITE (6, 15)  (ICHBT(Il), I 1=1, NCHBT) 

WRITE (6, 18) 

DO  50  1 1  =  1, NCHBT 
L=NCHBL (II) 

READ( 5,10)  ( ICHBL( I 1  ,I),I=1,L) 

50  WRITE (6,15)  ( ICHBL( I 1 , I ) , 1=1 , L ) 

16  FORMAT ( // , 5X , ' I CHBT (II)',/) 

18  FORMAT ( // , 5X , ' I CHBL (11,1)',/) 

19  FORMAT (//, 1 OX, ' INPUT  VALUES  FOR  CHANNEL-WIDTH  CHANGES  WITH 
@  'TIME  :',//) 

100  CONTINUE 

C 

C  READ  PARAMETERS  FOR  CHANNEL  CUTOFF 

C 

IF( ICOFF. EQ. 0)  GO  TO  200 
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WRITE (6,29) 

READ (5, 10)  NCOFFT 

READ(5, 10)  ( NCOFFL( II) , I 1=1, NCOFFT) 

WRITE( 6,22)  NCOFFT 
WRITE( 6,24) 

WRITE(6, 15)  (NCOFFL(Il) , I 1=1, NCOFFT) 

FORMAT ( // , 10X, ’ NCOFFT= ’,13,//) 

FORMAT ( // , 5X , 'NCOFFL(Il) ' ,/) 

READ ( 5 , 10)  ( ICOFFT( II ), 11=1, NCOFFT) 

WRITE ( 6,26) 

WRITE ( 6, 15)  ( ICOFFT(Il) , Il=l,NCOFFT) 

WRITE ( 6 , 28 ) 

DO  150  I 1=1, NCOFFT 
L=NCOFFL( II) 

READ( 5,10)  ( ICOFFL( II, I), 1=1, L) 

WRITE (6, 15)  ( ICOFFL( II, I), 1=1, L) 

FORMAT (//, 5X, ' ICOFFT(Il) ' ,/) 

FORMAT ( // , 5X , ' ICOFFL( II, I ) ' ,/) 

FORMAT (//, 1 OX, ' INPUT  VALUES  FOR  CHANNEL  CUTOFF  :',//) 
CONTINUE 

ADJUSTMENT  FOR  CHANNEL- WIDTH  CHANGES 
RETURN 

************* 

ENTRY  CHANGE 
************* 

IF( ICHB.EQ.O)  GO  TO  500 
ITEST=0 

DO  210  I 1=1 , NCHBT 
IT1=ICHBT( II ) 

IF(ITl.EQ.IT)  ITEST=ITEST+ 1 
IF( IT1 . EQ . IT)  GO  TO  215 
CONTINUE 

I F ( I TEST . EQ . 0 )  GO  TO  500 
L=NCHBL( II) 

DO  220  12=1, L 
I=ICHBL( I 1  ,12) 

MM=MA ( I ) 

READ  (5,30)  ( B1 ( I , MAI ) , MAI=1 , MM ) 

WRITE (6,32)  IT1 ,  I 

WRITE  (6,35)  ( B1 ( I , MAI ) , MAI=1 , MM ) 

DO  220  MAI=1 , MM 

AREA( I , MAI ) =B1 ( I , MAI ) *R1 ( I , MAI ) 

CONTINUE 
FORMAT (8F10. 1) 

FORMAT (//, 10X, 60( ' * ' ) , //, 15X, ' NEW  CHANNEL  WIDTHS  (FT.)/ 
-  ' IT=',I3,2X, ’ 1=' , I 3 , // , 10X , 60 (’*'),// ) 

FORMAT (10X,8F10. 1) 

CONTINUE 

ADJUSTMENT  FOR  CHANNEL  CUTOFF 


IF( ICOFF.EQ.O)  GO  TO  1000 
ITEST=0 

DO  310  I 1=1, NCOFFT 
IT1=IC0FFT( II) 


IF( IT1.EQ. IT)  ITEST=ITEST+1 
IF ( IT1.EQ. IT)  GO  TO  315 
CONTINUE 

IF ( ITEST . EQ . 0 )  GO  TO  1000 
L=NCOFFL( II) 

DO  320  12=1, L 
I=ICOFFL( I 1  ,12) 

READ (5,30)  REACH ( I ) 

WRITE (6,42)  IT1 , I 
WRITE (6,35)  REACH ( I ) 

CONTINUE 

FORMAT ( //, 10X, 65 ( ' * '  ) , //, 15X,  1  NEW  REACH  LENGTH  (FT.)  FOR', 
@  '  CUTOFF  AT  IT= '  , 13 , 2X,  ' REACH= ',13, //, 10X, 65 ( 1  * ' ) , //) 
CONTINUE 
RETURN 
END 


SUBROUT I NE  DADRED  ( IDRT, I DRL , NDRL, VDREJ , REACH , B , STAGE 1 , 
@  CDEP , AREA , R1 , NBEL , THBED , PT , PTT , PBED , DARM , ELI , MA ) 


THIS  SUBROUTINE  READS  AND  COMPUTES  THE  EFFECT  OF  DREDGING 

DIMENSION  IDRT(NT) , IDRL( NT, N ) , NDRL ( NT) , VDRE J(N) , REACH (NN) , 

1  B(N) , STAGE 1 ( N , MAXMA ) , CDEP ( N ) , DARM ( N ) , AREA ( N , MAXMA ) , 

2  R1(N, MAXMA) , NBEL (NN) , THBED (NN) ,PT(NN,N1) ,PTT(NN,N1) , 

3  PBED( NN, N1 , MAXBED ) , ELI (N) , MA(N) 

COMMON/D I MS/N , N1 , NT , M 1 , MAXMA , NN , MEMO , NX , I GR , N IP 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED, MAXBED, NBED, NTP, NT1, IDREJ,NTY 
COMMON/SCALR/ INDEX, L6, IDELT, VIS, I T I ME , GAMA , I FLAG , IT, INDSS, IFLAG1, 
1  ILIMIT,MM1, IEQ, IRES, ISED  ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , I BUG, ICHB, ICOFF 
COMMON/DREJ/KDREJ 

IDRT ( IT ) =TIME  STEPS  IN  WHICH  DREDGINGS  ARE  DONE 
I DRL ( N I ) =LOCAT I ON  (REACH  NO.)  OF  DREDGING  IN  TIME  STEP  IT 
NDRT=TOTAL  NO.  OF  TIME  STEPS  IN  WHICH  DREDGINGS  ARE  MADE 
NDRL (IT) =TOTAL  NO.  OF  REACHES  OF  DREDGING  IN  TIME  STEP  IT 
VDRE J ( I ) =VOLUME  OF  DREDGING  (CUBIC  YARDS/DAY)  IN  REACH  I 

READ  DREDGING  PARAMETERS 

WRITE ( 6 , 49 ) 

READ (5, 10)  NDRT 

READ ( 5 , 10 )  (NDRL( II), 11=1, NDRT) 

WRITE (6, 52)  NDRT 
WRITE(6, 54) 

WRITE ( 6 , 15 )  (NDRL( II) , 11=1, NDRT) 

FORMAT( 1215) 

FORMAT ( 15X, 1215) 

FORMAT ( 8F10 . 1 ) 

FORMAT (//, 1 OX, ' INPUT  VALUES  FOR  DREDGING  :',//) 

FORMAT (//, 10X, ' NDRT= 1 ,13,//) 

FORMAT (//, 5X, 'NDRL( II) ' ,/) 
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READ( 5,10)  ( IDRT( 1 1 ) ,  I 1=1 , NDRT ) 
WRITE (6,56) 

WRITE( 6,15)  ( IDRT( II) , 11=1, NDRT) 
WRITE(6, 58) 

DO  350  I 1=1, NDRT 


L=NDRL( II) 

READ( 5,10)  ( IDRL( II, I ) , 1=1, L) 
WRITE ( 6 , 15 )  ( IDRL( II, I ) , 1=1, L) 
FORMAT ( // , 5X , ' IDRT(Il) ' ,/) 
FORMAT ( // , 5X , 'IDRL(I1,I)' ,/) 
CONTINUE 
RETURN 
************ 

ENTRY  DREDGE 
************ 


COMPUTES  THE  EFFECT  OF  DREDGING  ON  GEOMETRIC  PROPERTIES 
ITEST=0 

DO  810  I 1=1, NDRT 
IT1=IDRT (II) 

IF( IT1.EQ. IT)  ITEST=ITEST+1 
IF( IT1.EQ. IT)  GO  TO  815 
CONTINUE 

IF( I TEST . EQ . 0 )  GO  TO  1000 

KDREJ=1 

L=NDRL( II) 

DO  890  12=1, L 
I=IDRL(I1, 12) 

READ(5, 30)  VDREJ(I) 

WRITE (6,62)  IT1 , I , VDREJ ( I ) 

DDRE J=VDRE J ( I ) / ( REACH ( I ) * (B( I ) +B( 1+1 ) )/2 . 0 ) *27 . 0* IDELT 
CDEP ( I ) =CDEP ( I ) +DDREJ 
DARM ( I ) =0 . 0 
MM=MA ( I ) 

DO  820  L= 1 , MM 

STAGE 1 ( I , L) =STAGE1 ( I , L) -DDRE J 

FORMAT ( //, 10X, 70 ( ' * ' ) , //, 15X, ' VOLUME  OF  DREDGING  AT  IT=' , 14, 

1  2X, ' 1=' , 13, 2X, ' IS: ' ,F12.0,2X, ’CU. YDS. /DAY  ' ,//, 10X,70( '*'),//) 

COMPUTE  THE  EFFECT  OF  DREDGING  ON  BED-MATERIAL  SIZE  DISTR. 

I F ( I BED . EQ . 1 . AND . NBEL( I ) . NE . 0 )  GO  TO  855 
BELIN=STAGE1 ( 1,1) +CDEP ( I ) 

DO  852  K=1,N1 

IF( ELI ( I ) . GE . STAGE 1 ( 1,1))  PT ( I , K ) =PTT ( I , K ) 

CONTINUE 

IF( IBED.EQ.O)  GO  TO  890 
IF(NBEL( I ) .EQ.O)  GO  TO  890 
NB=NBEL( I ) 

DO  860  L=1,NB 
T1=BELIN-L*THBED( I ) 

I F ( T1 . GT . STAGE 1(1,1))  GO  TO  865 

CONTINUE 

CONTINUE 

DO  890  K=1,N1 

I F ( ELI ( I ) . GE . STAGE 1 (1,1))  PT( I , K)=PBED( I , K, L) 

PTT ( I , K ) =PT ( I ,  K ) 


O  O  O  O  O  O  Q 


890  CONTINUE 
1000  CONTINUE 
RETURN 
END 
C 

c  - 

C  SUBROUTINE  WATPRO 

C  - 

c 

C  THIS  SUBROUTINE  COMPUTES  WATER  SURFACE  PROFILE,  AVERAGE  VELOCITY 

C  AND  FRICTION  SLOPE  BY  STANDARD  STEP  METHOD 

C 
C 

C  DEFINITION  OF  VARIABLES 

C 

C  SF ( I ) = ENERGY  GRADIENT  AT  SECTION  1 

C  CONVF =CONVEYANCE  FACTOR  FOR  WHOLE  SECTION 

C  CONVFL, CONVFR, CONVFM=CONVEYANCE  FACTORS  FOR  LEFT, RIGHT  AND 

C  MAIN  SUBSECTION,  RESPECTIVELY 

C  VEL=VELOC ITY  FOR  THE  WHOLE  SECTION 

C  VELCOF'-VELOC ITY  COEFFICIENT 

C  VH=VELOC I TY  HEAD 

C  THE AD 1 =TOTAL  HEAD, OBTAINED  BY  ADDING  VELOCITY  HEAD  TO  STAGE 

C  THEAD2 -TOTAL  HEAD , OBTAINED  BY  ADDING  FRICTION  HEAD 

C  DY ^CORRECT I ON  TO  BE  APPLIED  TO  THE  ASSUMED  STAGE  VALUE 

C  ITER-NO.  OF  ITERATIONS  REQUIRED  FOR  BACKWATER  COMPUTATIONS 

C  OLDH2  =TEMPORARY  LOCATION  FOR  STORING  THEAD2  OF  PREVIOUS  SECTION 

C  CL, CR, CM, A1 , A2= INTERMEDIATE  VARIABLES  FOR  BACKWATER  CALCULATIONS 

C 

C  - 

SUBROUT I NE  DAW ATP ( REACH , STAGE , Q , STAGE 1 , D , XAREA , R, B, CTO , SF , FR , 

1  AC.F ,  LOCTR,  QTR,  DMS ,  D50SLS  ) 


DIMENSION  REACH (NN) , STAGE ( N ) ,Q(N) , STAGE 1 (N, MAXMA) ,D(N1) , 

1  XAREA ( N ) , R ( N ) , B ( N ) , CTO ( N ) , SF ( N ) , FR ( N ) , DMS ( N ) , ACF ( N ) , 

2  LOCTR (NTRIB) , QTR(NTRIB) ,D50SLS(N) 

COMMON/D I MS/N , N 1 , NT , M 1 . MAXMA , NN , MEMO , NX , I GR , N1 P 1 , NTONX , NOBS , 

1  NT3  65 1 , NT 3  6  52 , NTR I B , NBANK , I BED , MAXBED , NBED , NTP , NT1 , IDRE J , NTY 
COMMON/SCALR/INDEX, I , IDELT, VIS, ITIME , GAMA, I FLAG, IT, INDSS, IFLAG1 , 

1  I  LIMIT, MM1 ,  IEQ, IRES,  I SED , ALFA , BETA , C2 1 , C22 , FMIX , IFR, IPRINT, 

2  I UF , STR , C ARM , CPPMUP ,  I  BUG , I CHB , I COFF 
COMMON/WATRES/FFCW, CPPM, FU, I REP, CPREV, FF 
COMMON/' ARM  I  /  I  BLR ,  I  SLR  ,  FSLR 

VELCCF  -]  .  C 

CONI  .-VELCOF/2 . 0/32 . 2 
ERR— 0  .  ():> 

CON2- i . /B . /32 . 2 
CON3-3  2 . 2  r I . 65 
CON4=: . /CON 2 
RETURN 
■*•■*■-*•*■  +  ■*•■*•**-*■ *-  * 

ENTRY  WATPRO 

*******-»+*»  + 

COMPUTATION  STARTS  AT  THE  CONTROL  SECTION 
(MOST  DOWNSTREAM  OR  SECTION  1) 


1=1 


TLTM  ITERATION  MANAGEMENT  FOR  SECTION 


CALL  SECPRO  TO  OBTAIN  SECTION  PROPERTIES 
CALL  SECPRO 

IF ( I BUG . GT . 0 . AND . I . GT . 1 . AND . I PR I NT . EQ . 1 )  WRITE(6,55)  I , ITER 

CALL  RES I SI  FOR  TLTM  CALCULATION 

CALL  RESIS1 
FR( I ) =FF 

XARE A ( I )=R( I ) *B( I ) 

CONVF=SQRT ( C0N4  *  R ( I )/FF) *XAREA( I ) 

VEL=Q( I ) /XARE A ( I ) 

VH= VE  L  *  VE  L  *  CON 1 
THEAD1=STAGE ( I ) +VH 
IF  (I.EQ.l)  THE AD2  =THE AD 1 

COMPUTATION  STARTS  AT  THE  NEXT  SECTION 

IF( I .EQ. 1 )  GO  TO  135 

THEAD2  =OLDH2  +(SF( I )+SF( 1-1) )*0.5*REACH( 1-1) 

DEL=  ABS(THEAD1-THEAD2 ) 

IF  ( IBUG . GT . 0 . AND . IPRINT . EQ . 1 ) 

1  WRITE (6,50)  I , XAREA ( I ) , R { I ) , STAGE ( I ) , Q ( I ) , 

*  SF ( I ) , VEL , THE ADI , THEAD2 , ALPHA 
IF( I .EQ. 1)  GO  TO  140 

T 1 =THE AD 1 - THE AD2 
XS I GN=  S I GN ( 1 . , T1 ) 

IF (DEL . LT . ERR)  GO  TO  140 
IF( ITER . EQ . 30 )  GO  TO  140 
Al=2 . 0*VH/R( I ) 

A2=3 . 0*SF ( I ) *  PEACH ( I-1)/(2.0*R(I)) 

DY= ( THE AD 1 - THE AD2 )/(1.0-Al+A2) 

IF ( IBUG.GT.O. AND. IPRINT . EQ . 1) 

1  WRITE  (6,20)  I , DY, R ( I ) , VEL , SF ( I ) , FF , CPM 
STAGE ( I ) =STAGE ( I ) -DY 
ITER=ITER+1 
GO  TO  101 

IF  ( IBUG.GT.O. AND. IPRINT. EQ. 2) 

1  WRITE (6,52)  I , R ( I ) , VE  L,Q(I),SF(I), THE AD 1 , 

*  THEAD2 , FFCW, FU, CPPM, ITER 

I F ( I .NE. 1 . AND. ITER.GT. 30)  CALL  ERR0R4( I , IT, ITIME, ITER, DEL) 
BACKWATER  ITERATION  COMPLETED 

DISTRIBUTE  TOTAL  SEDIMENT  DISCHARGE  AMONG  SIZE  FRACTIONS 

CALL  TRASF 
1  =  1+1 

INITIAL  ESTIMATE  OF  STAGE  OF  NEXT  U/S  SECTION 

IF  (I.LE.N)  STAGE ( I ) =STAGE (I-1)+SF(I-1) * REACH ( I - 1 ) 

ITER=1 

0  LDH2  =THE AD2 
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IF  ( I . LE . N )  GO  TO  101 

FORMAT ( 5X, ' 1= '  ,  13 , 2X, ' DY= ' , F8 . 4, 2X, ' D= ' , F7 . 3 , 2X, ' V= ' , F7 . 3 , 

*  2X,  '  S='  ,F8.6,2X,  '  FF= '  ,F7.4,2X,  *  CBAR= '  ,  F8 . 3  ) 

FORMAT{/, 5X, ' 1= ’ , 13 , 2X, ' A= ' , F10 . 2 , 2X, ' R= ' , F5 . 2 , 2X, ' H= ' , F9 . 4, 2X, 
*'Q=' ,F9.2,2X, 'SF=' ,F10.8,2X, 'V=' ,F5.2,2X, 'Hl=' , F9.4,2X, 'H2=' , 
*F9.4,2X, 'ALPHA=' , F6.3,/  ) 

FORMAT ( 5X, ' 1= ' , 14, 2X, ' D= ' , F6 . 3 ( 2X, ' V= ' , F6 . 3 , 2X, ' Q= ' , F8 . 1 , 

*  2X, 1 S= ' , F8 . 6 , 2X, ' Hl= ' , F8.3,2X, *H2=' , F8.3,2X, 'FCW=' ,F6.4,2X, 

*  '  FU= '  ,F6.4,2X,  '  CBAR= 1  ,F8.2,2X,  '  ITER= 1  ,13,/) 

FORMAT ( / , 15X, 15 ('*'), 2X, ' 1= ' , 13 , 2X, ' ITERATION  _ ' , 13, 

*  2X, 15 ( 1  * '  ) , //) 


RECALCULATING  SEDIMENT  DISCHARGE  IN  CASE  OF  TRIBUTARIES 


IF (NTRIB . EQ . 1 )  GO  TO  800 
DO  700  12=2, NTRIB 
1 4=L0CTR ( 12) 

D50S=DMS( 14) 

IF(ISLR.EQ.l)  D50S=D50SLS( 14) 

QMAIN=Q( 14 ) -QTR ( 12 ) 

VL=QMA I N/ ( XARE A ( 14) ) 

SLN=FR( 14) *VL**2 . 0*CON2/R( 14) 

A3=ALOG10(R( I4J/D50S  ) 

A4=ALOG10(SLN) 

UST=SQRT( 32 . 2*R( I4)*SLN) 

RS=UST*D50S  /VIS 
CALL  SHIELD ( RS , SHP ) 

VAR1=SQRT ( C0N3  *D50S  ) 

USC=SQRT ( SHP ) * VAR1 
TEMP=AMAX1 ( UST-USC ,0.001) 

A12=AL0G10 ( VL/  VAR1 ) 

A1 7=ALOG10 ( TEMP/VAR1 ) 

QS=10 . 0*  * ( -2 . 2786+A12*2 . 9719+A12*A17*1 . 006+A3*A17*0 . 2989 ) 
CTO ( I4)=QS*DMS( I4)*VAR1/(VL*R( 14) ) 

CTO ( I4)=( 1 . 0-FSLR*ALFA*ACF ( 14) )*CTO( 14) 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE  RES  I  SI 


THIS  SUBROUTINE  CALCULATES  SEDIMENT  DISCHARGE  AND  FRICTION  FACTOR 
USING  THE  TOTAL  LOAD  TRANSPORT  MODEL  ( TLTM )  DEVELOPED  AT  IIHR 


SUBROUT I NE  DARES  I ( Q , DMS , D , XAREA , R , CTO , SF , ACF , C IN , D50SLS ) 


DIMENSION  o(N) , DMS ( N ) , D( N1 ) , XAREA ( N ) , R(N) , CTO(N) , SF(N) , 

I  ACF(N) , CIN(N) , D50SLS(N) 

COMMON/D I MS/N , N 1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , N 1 P 1 , NTONX , NOBS , 

1  NT365 1 , NT3652 , NTRIB , NBANK , I BED , MAXBED , NBED , NTP , NT1 , IDREJ , NTY 
COMMON/SCALR/ INDEX, I , IDELT, VIS, I T I ME , GAMA , I  FLAG, IT,  INDSS,  IFLAG1 , 
1  ILIMIT, MM1 , IEQ, IRES, I SED , ALFA , BETA , C2 1 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , IBUG, ICHB, ICOFF, VISLOG 


m  fc  -  "  *  "  -  *  *  '  S  ' 
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COMMON /WATRE  S/F  FCW , CPPM ,  FU ,  I REP , CPREV , FF 
COMMON/ARM/MIND, QMAX, I ARMOR 
COMMON /ARM 1 / 1 B  LR , I  SLR, FSLR 

NAMELIST/RATS/IT, I , IT2 , SI , VI , D1 , Fll , FI , VAR1 , W, A12 , A3 , WLOG, 

1  DMSLOG , A4 , TIP , SIP , UST, A6 , A10 , RS , USC , TEMP , A17 , QS , 

2  A1 , RIGHT, 71,72,11,1, TT, S10LD 
C 

ERRP=0 . 01 
ERRA=0 . 05 
ERRS=0 . 02 
CON3=32 .2*1.65 
CON5=32. 2/1000.0 
C0N4=8 . 0*32 . 2 
C0N9=STR* 1000.0 
RETURN 

Q  ************ 

ENTRY  RES I SI 
0  ************ 

C 

D50S=DMS ( I ) 

IF( ISLR.EQ. 1)  D50S=D50SLS( I ) 

IT2=0 

S1=STR* 1000 . 0 

IF(IT.GT.l)  S1=SF ( I ) *  1000 . 0 
V1=Q( I ) /XARE A ( I ) 

D1=R( I ) 

FI 1=3 6 . 0*VIS**2/(CON3*D50S  **3) 

F1=SQRT ( 2 . 0/3 . O+Fll ) -SQRT( Fll ) 

VAR1=SQRT ( C0N3  *D50S  ) 

W  =F1*SQRT(1. 65*32. 2*D50S  ) 

A12=ALOG10 ( V1/VAR1 ) 

A3  =ALOG10 ( D1/D50S  ) 

WLOG=ALOG10(W) 

DMSLOG=ALOG10 ( D50S  ) 

C 

C  BEGIN  ITERATIVE  SOLUTION 

C 

100  A4=AL0G10 ( SI ) 

T1P=T1 

S1P=S10LD 

UST=SQRT(D1*S1*C0N5 ) 

A6=ALOG10 ( UST/W ) 

A10=WLOG+DMSLOG- VI  SLOG 
RS=UST*D50S  /VIS 
CALL  SHIELD( RS , SHP ) 

USC=SQRT ( SHP ) * VAR1 
TEMP=AMAX1 ( UST-USC  ,0.001) 

A17=AL0G10 ( TEMP/VAR1 ) 

C 

C  QS  COMPUTED  FROM  EQ .  1,  I I HR  250 

C 

QS=10.0**(-2.2786+A12  *2.9719+A12  *A17  *1.0600+ 

@  A3  *A17  *.2989) 

120  A1=ALOG10 ( QS ) 

C 

C  U  COMPUTED  FROM  EQ .  2,  1 1 HR  2  50 

C 

212  RIGHT=10.0**( .9045+A1  *.1665+A1  *A6  *A10  *.0831+ 


v.v.y.y. 


< 

.k 

L« 


c 

c 

c 

214 


@  A6  *A10  * . 2166+A3  *A4  *A6  *(-.0411)) 

ITERATION  MANAGEMENT 


C 

C 

C 


C 

C 

C 


15 


C 

C 

C 


C 

C 

C 

C 

C 

C 


154 


153 


C 

C 

C 


150 


V2=RIGHT*VAR1 
T1=V1-V2 

XSIGN=SIGN( 1 . 0, T1 ) 

IF( IT2 . EQ . 0 )  X1=XSIGN 
IF(XSIGN.NE.Xl)  GO  TO 
T=ABS(T1 ) 

TT=T/V1 

I F ( T . LE . ERRA  . OR . TT . LE . ERRP )  GO  TO  150 
IF  (IT2.GT.60)  GO  TO  150 
S1=S1* ( 1 . 0+SIGN( ERRS , T1 ) ) 


REGULA  FALSI  CORRECTION  OF  SI 


S10LD=S1 

IF( IT2.GT.0)  S1=S1-T1*( SI-SIP )/(Tl-TlP) 

IF( IT2 . EQ. 0)  S1=S1* ( 1 . +0 . 3 *SIGN( 1 . , T1 ) ) 

IF(Sl.LT.O.O)  S1=AMAX1 ( SI , CON9 ) 

IT2=IT2+1 

IF( I BUG. EQ. 0)  GO  TO  100 
IF(IT.EQ.l)  GO  TO  100 
IF( IPRINT.EQ.O)  GO  TO  100 
CBAR=CTO( I ) *2 . 65E6 

IF( IT2 . EQ. 1 )  WRITE(6, 15 )  IT2 , VI , V2 , SI , CBAR, QS 
IF( IT2 . EQ . 5 )  WRITE(6,15)  IT2 , VI , V2 , SI , CBAR, QS 
IF( IT2.EQ. 10)  WRITE (6, 15 )  IT2 , VI , V2 , SI , CBAR, QS 
IF( IT2.EQ. 100)  WRITE( 6,15)  IT2 , VI , V2 , SI , CBAR, QS 
FORMAT ( 5X, ' IT2=' , 14, 2X, 'Vl=' ,F6.2,2X, 'V2=’ ,F6.2,2X, ' Sl= 
*  E14 . 7 , 2X,  '  CBAR= '  ^FS^^X,  'QS=’  ,£14.7) 

GO  TO  100 


ITERATION  COMPLETED 


150 


IF  (IT2.LE.10)  GO  TO  152 
CALL  ERROR5( I , IT, ITIME, IT2 , TT) 
WRITE (6, RATS) 

IF( IT2.GT.60)  STOP 


COMPUTE  TLTM  FRICTION  FACTOR 


152 


SF ( I )=S1/1000.0 
FF=C0N4*Dl*Sl/( 1000 . 0*V1*  *2 ) 

FU=FF 
AA=0 . 0 
IC=0 

IF(IT.EQ.l)  I8=N1- 1 
IF(IT.GT.l)  I8=MIND 
DO  153  IA=I8  ,N1 
IC=IC+1 
AA=AA+D( I A) 

DA=AA/FLOAT ( IC) 

IF ( IPRINT . EQ . 1 )  WRITE (6,25)  I , D1 , VI , SI, FF, CPM 


COMPUTE  COLEBROOK-WHITE  FRICTION  FACTOR 


169 


CRI=2 . *ALOG10(2 . 0*D1/DA) +1 . 14 

IF( I BUG. EQ. 1 )  WRITE( 6,23)  D( IA) , DA( CRI , D1 , SI , DMS ( I ) 

FORMAT ( 5X , 'D=' /E14.7(2X/ ' DA= ' ,£14.6,  2X, 'CRI=' ,E14.7,2X, 
a  1 Dl= ' , E14 . 6, 2X, 'Sl=' , E14 . 6 , 2X, 'D50=' ,E14.6) 

FFCW=1 . 0/ ( CRI ) *  *2 

IF( IPRINT.EQ. 1)  WR I TE (6,22)  FF, FFCW 

COMPUTE  COMPOSITE  FRICTION  FACTOR  ( EQ . 5  1 1 HR  2  50) 

FF= ( 1 . -FSLR*C21*ACF ( I ) ) *FF+C22 *FSLR*ACF( I ) *FFCW 
R(  I )  =D1 

SF ( I )=FF*V1**2/(C0N4*D1) 

S1=SF ( I ) *  1000 . 0 

UPDATE  SEDIMENT  DISCHARGE  FOR  COMPOSITE  FRICTION  FACTOR 
A4=ALOG 1 0 ( S 1 ) 

UST=SQRT( 32 . 2*D1  *S1  /1000.0) 

A6=ALOG10 ( UST/W ) 

RS=UST*D50S  /VIS 
CALL  SHIELD (RS, SHP) 

USC=SQRT ( SHP ) *VAR1 
TEMP=AMAX1 (0.001, UST-USC ) 

A 1 7  = ALOG 1 0 ( TEMP/VAR 1 ) 

QS=10.0**(-2.2786+A12  *2.9719+A12  *A17  *1.0600+ 

@  A3  *A17  *.2989) 

CTO ( I ) =QS*SQRT ( CON3  *D50S  **3)/(Vl*Dl) 

IF  (IT.EQ.l)  CIN( I )=CTO( I ) 

CTO( I )=( 1 . -FSLR*ALFA*ACF ( I ) ) *CTO( I ) 

CPPM=CTO ( I ) *2 . 65E6 

IF( IPRINT.EQ. 1)  WRITE ( 6 , 10 )  I , D1 , Vl , V2 , SF ( I ) , FF , CPPM, IT2 , ACF ( I ) 
FORMAT (//,  6X, ' 1=’ , I3,2X, ' D= ' , F5.2,2X, ’Vl=' ,F5.2,2X, ’V2=' , F5 . 2 , 
*2X, ' SF= ' , F9.7,2X, ' F= ' ,F6.4,2X, ' CBAR= ' , F9 . 2 , 2X, ' IT=' , 14, 

*2X, ' ACF= ' , F9 . 7 , / ) 

FORMAT ( / , 5X , ' FF= ' ,  F7.5,2X, 'FFCW=' ,F7.5) 

FORMAT (5X, ' 1=' , I3,2X, 'Dl=' , F7 . 3 , 2X, ' Vl= ' , F7 . 3 , 2X, ' Sl= ' , F8 . 6, 

*  2X, ' FF= ' , F7 . 4 , 2X, ' CBAR= ' , F8 . 3 ) 

RETURN 

END 


SUBROUTINE  TRASF 


THIS  SUBROUTINE  CALCULATES  SEDIMENT  DISCHARGE  BY  SIZE 
FRACTION  BY  IIHR  METHOD  (EQ.20  IIHR  250) 


SUBROUTINE  DATRAS ( D50 , D , PT , SSC , R , CTO , SF , PQS , PDN , PAC ) 


DIMENSION  D50 ( NN ) , D ( N1 ) , PT ( NN ,  N1),SSC(N,  N1 ) , R(N) , CTO(N) , 

1  SF (N) , PQS ( N,  N1 ) , PDN ( N,  Nl) , PAC(N,N1) 

COMMON/D I MS/N , N 1 , NT , M 1 , MAXMA , NN , MEMO , NX , I GR , N 1 P 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRI B , NBANK, I BED , MAXBED , NBED , NTP , NT1 , IDREJ, NTY 
COMMON/SC ALR/ INDEX, I , IDELT, VIS, I TIME, GAMA, I FLAG , IT, INDSS, IFLAG1, 
1  ILIMIT, MM1 , IEQ, IRES, I SED , ALFA, BETA, C2 1 , C22 , FMIX, IFR, IPRINT, 

2 1 UF , STR , C ARM , CPPMUP , I BUG , I CHB , I COFF 


n  n 


COMMON/WATRES/FFCW , CPPM , FU , I REP , CPREV , FF 
COMMON/BANK/ I BSED, QMIN, IUPS 
COMMON / ARM1 / I BLR , I SLR, FSLR 
C 

RETURN 

C 

ENTRY  TRASF 


IF(I.EQ.N)  GO  TO  100 
SS=0 

X=0 . 0316* { R( I )/D50 ( I ) ) *  *0 . 50 
DO  160  K=1,N1 

IF(IT.EQ.l)  PAC( I , K)=PT( I ,  K) 

UST=SQRT( 32 . 2*R( I ) *SF( I ) ) 

RS=UST*D(K) /VIS 
CALL  SHIELD(RS, SHP) 

USC=SQRT(SHP*32.2*1.65*D(K) ) 

PR0B=1 . 00 

i F ( UST .  LE . USC )  PROBO.OO 

IF ( I BLR . EQ . 0 ) SS=SS+PT( I ,  K) * ( (D50( I )/D(K) ) **X) *PROB 
IF( IBLR. EQ . 1 )SS=SS+PAC( I , K) * ( (D50 ( I )/D(K) ) **X) *PROB 
160  CONTINUE 
N2=N1-1 
DO  200  K=1 , N1 
UST=SQRT( 32 . 2*R( I ) *SF( I ) ) 

RS=UST*D( K) /VIS 
CALL  SHIELD(RS, SHP) 

USC=SQRT(SHP*32 .2*1. 65*D(K) ) 

PROB=l . 00 

IF(UST.LE.USC)  PROB=0 . 00 
PSI=0.0 

IF(SS.NE.O.O)  PSI=PT( I ,  K)*( (D50( I)/D(K) )**X)/SS*PROB 
IF( SS . NE . 0 . AND . IBLR . EQ . 1 )  PSI=PAC( I , K) * ( (D50( I )/D(K) ) **X) 

@  *PROB/SS 
PQS ( I ,  K)=PSI 
SSC(I,  K)=CTO( I ) *PSI 

IF ( I BUG. EQ . 1 )  WRITE (6,37)  I,  K,SSC(I,  K) 

37  FORMAT (/, 5X, ' SSC( ',12,', ',11,' ,',12,')=' ,E14.6) 

200  CONTINUE 
S2=0 

DO  250  K=1,N1 

250  S2-S2  +PQS ( I ,  K ) * ( D ( K ) /D50 ( I ) ) * *X 

DO  260  K- I , N1 

C  PDN ( I ,  K)=PQS(I,  K) * ( D( K) /D50 ( I ) ) *  *X/S2 

I F ( I BLR . EQ . 0 ) PDN ( I ,  K)=PT(I,  K) 

IF( IBLR.EQ. 1)  PDN ( I ,  K)=PAC(I,K) 

260  CONTINUE 

100  IF( INDSS.EQ. 1. AND. IUPS. EQ. 0)  CTO(N)=CPPMUP/( 2 . 65*1000000. 0) 
RETURN 
END 
C 
C 

C  - - - - - 

C  SUBROUTINE  SECPRO 

C  - - - 

C 

C 
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THIS  SUBROUTINE  COMPUTES  CROSS  SECTIONAL  AREA, HYD . RADIUS  AND  WATER 
SURFACE  WIDTH  AT  SECTION  I  FOR  A  PARTICULAR  ELEVATION 


SUBROUT I NE  DASECP ( STAGE , MA , STAGE 1 , B 1 , R 1 , AREA , XAREA , R , B ) 

C 

DIMENSION  STAGE(N) , M A ( N ) , STAGE1 (N, MAXMA) , B1 (N, MAXMA) , 

1  R1 (N, MAXMA ) , AREA(N, MAXMA) ,XAREA{N) ,R(N) ,B(N) 

COMMON/D I MS/N , N1 , NT , Ml , MAXMA , NN , MEMO , NX , IGR , NIP 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB , NBANK, I BED , MAXBED , NBED , NTP , NT 1 , IDREJ , NTY 
COMMON/SC ALR/ INDEX, I , IDELT, VIS, ITIME, GAMA, I FLAG, IT, INDSS, IFLAG1, 
1  I L I M I T , MM 1 , IEQ, IRES, I SED , ALFA, BETA, C2 1 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , IBUG, ICHB, ICOFF, VISLOG 
COMMON/WATRES/FFCW , CPPM, FU, I REP , CPREV , FF 
C 

RETURN 

Q  ************ 

ENTRY  SECPRO 
************ 


DEFINITION  OF  VARIABLES 

XAREA ( I )=CROSS  SECTION  AREA  OF  THE  WHOLE  SECTION  AT  SECTION  I 
R ( I ) =HYD .  RADIUS  OF  THE  WHOLE  SECTION  AT  SECTION  I 
B ( I ) =WATER  SURFACE  WIDTH  OF  WHOLE  SECTION  AT  SECTION  I 

XAREAL ( I ) , XAREAR ( I ) , XARE AM ( I ) =CROSS  SECTION  AREAS  AT  SECTION  I  OF 
LEFT, RIGHT  AND  MAIN  SUBSECTION, RESPECTIVELY 
RL( I ) ,RR( I ) ,RM( I )=HYD.  RADIUS  AT  SECTION  I  FOR  LEFT, RIGHT  AND  MAIN 

SUBSECTION, RESPECTIVELY 

BBL ( I ) , BBR ( I ) , BBM ( I )  =  WATER  SURFACE  WIDTH  AT  SECTION  I  FOR  LEFT, 

RIGHT  AND  MAIN  SUBSECTION,  RESPECTIVELY 

MM=MA ( I ) 

IF( STAGE ( I ) . LE . STAGE 1 ( I , 1 ) . OR . STAGE ( I ) . GE . STAGE 1 ( I , MM) ) 

@  STAGE ( I ) =STAGE 1 ( I , 1 ) +R ( I ) 

A=STAGE ( I ) 

I F ( A . LE . STAGE 1(1,1))  GO  TO  200 
DO  150  L=1 , MM 
D=STAGE1 ( I , L ) 

IF( IBUG.EQ. 1)  WRITE ( 6 , 10 )  A, D , MM, L 
10  FORMAT ( 10X, ' A=' ,F10.2,2X, ’D=’ ,F10.2,2X, 1 MM= ’ , 12 , 2X, ' L= ' , 12 ) 

IF(D.GT.A)  GO  TO  170 
150  CONTINUE 
L=MM 

170  C=( A-STAGE1 ( I , L-l ) )/( STAGE 1 ( I , L ) - STAGE 1 ( I ,  L-l ) ) 

XAREA  ( I ) =AREA  ( I , L- 1 ) + ( AREA  ( I , L ) -AREA  (I,L-1))*C 
R(I)=R1(I,L-1)+(R1(I,L)-R1(I,L-1) )*C 
B(I)=B1(I,L-1)+(B1(I,L)-B1(I,L-1) ) *C 

IF( IBUG.EQ. 1)  WRITE (6,30)  I , A, STAGE1 ( I , 1 ) , XAREA ( I ) , R( I ) , B( I ) 

I F ( A . GT . STAGE 1(1, MM ) )  WRITE(6,20)  I,IT,A,D 
GO  TO  300 

200  WRITE (6,25)  I,IT,A,D 

20  FORMAT (  5X,  8( ' * ' ) , 2X, ' W. S.  ELEV.  EXCEEDS  TOP  ELEV.  OF  ', 

@  'X- SECT I ON  AT  1= ' , 13 , 2X, ' IT= ' , 14 , 2X, ' WSE= ' , F8 . 2 , 2X, 

@  ' D= ' , F8 . 2 , 2X, 8 ( )) 

25  FORMAT (  5X,  8( ' * ' ) , 2X, ' W . S .  ELEV.  BELOW  BOTTOM  OF  ', 
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@  'X- SECT I ON  AT  1=' , 13 , 2X, ' IT=' # 14, 2X, ' WSE= ' , F8 . 2 , 2X, 

@  'D=' ,F8.2,2X,8( ' *' ) ) 

FORMAT  (  5X,  '  1='  ,  I4,2X,  'WSE='  ,F9.3,2X,  '  BEL= '  ,F8.3,2X,  'A='  , 
@  F8 . 1 , 2X, ' R= ' ,  F8 . 3 , 2X, ' B= ' , F8 . 3 ) 

RETURN 

END 
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SUBROUTINE  SLOAD 


THIS  SUBROUTINE  APPLIES  SEDIMENT  CONTINUITY  EQUATION  AND 
CALCULATES  DEPTHS  OF  DEGR . /AGGR . 


UENT 

»  *  *  * j 


DEFINITION  OF  VARIABLES 


SSC(I/K)=  SUSPENDED  SEDIMENT  CONCENTRATION  AT  SECTION  I  , 

SEGMENT  J,  SED.  FRACTION  K 
BB( I ) =WIDTH  OF  SECTION  I , SEGMENT  J 

W(K)=  FALL  VELOCITY  OF  SEDIMENT  PARTICLE  OF  FRACTION  K 
ERVEL( I , K)=EROSION  VELOCITY  AT  SECTION  I,  SEG. J, SED. FR.  K 
CB ( I , K ) =  SEDIMENT  CONCENTRATION  IN  BED  LAYER  AT  SECTION  I, 

SEGMENT  J,  SED.  FRACTION  K 

EZ ( I , K  )=  TRANSEVERSE  DIFFUSION  COEFFICIENT  FOR  SEDIMENT  IN 
SECTION  I,  SEGMENT  J,  FOR  SED.  FR.  K 
N=  NO.  OF  SECTIONS ( IN  LONGITUDINAL  DIRECTION) 

NN=NO .  OF  REACHES=N-1 

Ml=  NO.  OF  SEGMENTS 

Nl=NO.  OF  SEDIMENT  SIZE  FRACTIONS 

REACH ( I )  =  LENGTH  OF  REACH  BETWEEN  SECTIONS  I  AND  1+1 
MANG ( I ) —  MANNING'S  COEFFICIENT  AT  SECTION  I , SEGMENT  J 
VAV(I)=  AVERAGE  VELOCITY  AT  SECTION  I , SEGMENT  J 
DELT=TIME  INTERVAL( DAYS ) 

P(K)=  POROSITY  FOR  SEDIMENT  FRACTION  K 
S I =P ARAMETER  FOR  TRANSEVERSE  SEDIMENT  TRANSFER 

CC, CD, TEST= INTERMEDIATE  VARIABLES  FOR  SUSP.  SEDIMENT  CALCULATIONS 
KA ( I , K ) = I NDEX  VARIABLE  TO  INDICATE  WHETHER  LIMITING  SCOURING 

DEPTH  IS  REACHED  AT  SECTION  I , SEGMENT  J,  SED.FR.  K(=0/ LIMITING 
DEPTH  NOT  REACHED;  =1,  LIMITING  DEPTH  REACHED  ) 


NOTE:  RA  AND  BB  ARE  PSEUDONYMS  FOR  R  AND  B 


SUBROUT I NE  DAS LOA ( REACH , P , D , PT , PTT , SSC , CTO , SF, ACF, RA, BB, 

1  DW , DELDS , TDELD , CDEP , KA , VOLOUT , DELT , PQS , PDN , CDEP1 , 

2  TB , ACF 1 , LOCTR , QSTR , PTR I B , TDELTR , LOCBER , BEROS , PBANK , Q , PTA , 

3  D50 , THBED , NBEL , STAGE 1 , PBED , DARM, ELI , VAV , QSDP ) 


DIMENSION  REACH(NN) , P(N1 ) , D(N1 ) , PT(NN, N1 ) , PTT(NN, N1 ) , 

1  SSC ( N , N1 ) , CTO ( N ) , SF ( N ) , ACF {N),RA(N),BB(N) , 

2  DW(N) , DELDS (N,N1) ,TDELD(N,N1) , CDEP (N) , 

3  KA(N.Nl) , VOLOUT(N) ,DELT(N,N1) ,PQS(N,N1), 

4  PDN(N, N1 ) , CDEP1 (N) ,TB(N,N1) , ACF1 ( N) , QSTR( NTRIB) , 

5  PTRIB(NTRIB, N1 ) , TDELTR ( NTRI B , N1 ) , LOCTR (NTRIB), 

6  LOCBER ( NBANK ) , BEROS { NBANK ) , PBANK ( NBANK ,N1),Q(N), 
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7  PTA(NN,N1),  D50(NN) , THBED(NN) , NBEL(NN) , STAGE 1 (N, MAXMA) , 

8  PBED(NN, N1 , MAXBED) , DARM(N) , ELI (N) ,  VAV(N) , QSDP (NN) 

COMMON/D I MS/N , N1 # NT , Ml , MAXMA , NN  , MEMO , NX , I GR , N 1 P 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED, MAXBED, NBED, NTP , NT1 , IDREJ , NTY 
COMMON/ SCALR/ INDEX, L6, IDELT,VIS, ITIME, GAMA, I FLAG, IT, INDSS, IFLAG1, 
1  ILIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR, CARM, CPPMUP , I BUG, ICHB, ICOFF 
COMMON/WATRES/FFCW , CPPM , FU , I REP , CPREV , FF 
COMMON/ S LOHY S/ I , K 
COMMCN/BANK/IBSED, QMIN, IUPS 
COMMON/ ARM/M I ND,QMAX, I ARMOR 
C 

CON3=l .65*32.2 
THETA=1 . 0 
THETA1=1 . O-THETA 
RETURN 

0  *********** 

ENTRY  SLOAD 

Q  *********** 

c 

C  LOOP  ON  REACHES,  U/S  TO  D/S 

C 

603  DO  1000  I 1=2 , N 
I=N+1-I1 

15=1 

16=1+1 

QSTU=Q ( I + 1 ) / ( (BB( I ) +BB( I +1 ) ) *0 . 5 ) 

DELCTO=CTO ( I + 1 ) -CTO ( I ) 

IF(I.EQ.N-l)  DELCTO=0 . 0-CTO( I ) 

QSD=THETA*DELCT0+THETA1*QSDP( I ) 

QSDP ( I ) =DELCTO 
C 

C  LOOP  ON  SEDIMENT  SIZE  FRACTIONS  FOR  EACH  REACH 

C 

604  DO  800  K=1,N1 
VAR1=SQRT ( C0N3  *D ( K ) ) 

599  KA ( I , K ) =0 

WFAC=1 . 00 
C 

C  COMPUTATION  OF  TRANSPORT  CAPACITY  BY  SIZE  FRACTION 

C  IN  EACH  REACH 


DO  200  12=15, 16 

UST=SQRT( 32 . 2*RA( 12 )*SF( 12 ) ) 

RS=UST*D(K)/VIS 
CALL  SHIELD(RS, SHP ) 

USC=SQRT ( SHP ) * VAR1 
Fll=36.0*VIS**2/( C0N3  *D( K ) *  *3 ) 

F1=SQRT ( 2 . 0/3 . O+Fll ) -SQRT ( Fll ) 

WI  =F1 * VAR1 

A3  = ALOG 1 0 ( R A ( I2)/D(K) ) 

A4=ALOG10 ( SF ( 1 2 ) *  1000 . 0 ) 

A12=ALOG10 ( VAV ( 12 )/VARl ) 

TEMP=AMAX1 ( UST-USC ,0.001) 

A 1 7  = ALOG 1 0 ( TEMP/VAR 1 ) 

QSK=10 .0**(-2. 2786 +A12*2. 9719 +A12*A17*1. 0600+ A3  *A17*0.2989) 
I F ( INDSS . EQ . 1 . AND . I 2 . EQ . N )  QSK=CPPMUP/2 . 65E6 
@  *PTRIB(1,K) 
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520 

C 

C 

C 


700 

C 

C 

c 


725 

C 

800 

C 

c 

c 


IF(I2.EQ.I5)  QSIK=QSK 
CONTINUE 

QSK=  U/S  LOAD  FRACTION  K 
QSIK=  D/S  LOAD  FRACTION  K 
QSD=  GLOBAL  DEFICIT,  REACH  I  (  +VE  FOR 
WFAC=  1  FOR  GLOBAL  DEGR.  ,K  DEGR 
WFAC=  0  FOR  OPPOSITE  GLOBAL  -K  TREND 
0<WFAC< 1  FOR  GLOBAL  AGGR .  ,  K  DEGR 

I F ( QSD . GT . 0 . 0 )  WFAC= 1 . OO-QSI K/QSK 
I F ( QSD . GT . 0 . 0 . AND . WFAC . LT . 0 . 0 )  WFAC=0 . 0 
I F ( QSD . LT . 0 . 0 . AND . QS I K . LT . QSK )  WFAC=0 . 0 
IF ( ABS ( QSD) . LE . 0 . 377E-6 )  WFAC=0 


I 

i*.Trr 


AGGR .  ) 


COMPUTATION  OF  DEGRADATION  OR  DEPOSITION  IN 
REACH  I  FOR  FRACTION  K  ,  ADJUSTED  FOR  INCONSISTENCY 
WITH  GLOBAL  TREND  USING  WFAC 

IF (QSD . LE . 0 . 0 )DELDS ( I , K)=QSD*PQS ( I , K) *QSTU/ ( (l.-P(K) ) * REACH ( I ) ) 
1*IDELT*86400. 0*WFAC 

IF ( QSD . GT .0.0  )  DELDS( I , K)=QSD*PDN( I , K) *QSTU/ ( (l.O-P(K) ) 

*  *REACH( I ) ) * IDELT*86400 . 0*WFAC 
TDELD ( I , K ) =-DELDS ( I , K) 

ADUSTMENT  FOR  TRIBUTARY  SEDIMENT  INFLOWS 

DO  700  12=1 , NTRIB 

I4=L0CTR( 12 ) - 1 

IF( 14. NE. I )  GO  TO  700 

IF( INDSS . EQ . 0 . AND . 12 . EQ . 1 )  QSTR( 12 )=CTO( I ) *Q(N) 

TDELTR ( I 2 , K ) =QSTR ( I 2 ) * IDELT*  86400 ■ 0/ ( ( BB (14) +BB (14+1)) 

1  /2 . 0* REACH ( 14 ) ) *PTRIB( I2,K)/(1.0-P(K) ) 

TDELD ( 14, K)=TDELD( 14, K) -TDELTR( 12 , K) 

CONTINUE 

ADJUSTMENT  FOR  BANK  EROSION 

IF(NBANK.EQ.O)  GO  TO  800 
WF=0 . 0 

IF(Q( I ) .GT.QMIN)  WF=1.00 
DO  725  13=1 , NBANK 
I 4=LOCBER( 13 ) 

IF( I4.NE. I )  GO  TO  725 

EROS  t’.KROr.(  13  )  *  IDF.I.,T*RKACI1(  C  4  )/5280 . 0/  (  1 . 0  -  R  (  K  )  ) /  (  (  BB(  1 4  ) 

1  +  BB  (]4+l))*0. 5  *  REACH  (14))  *  WF 
I F ( IBSED.EQ.O)  FBANK( I3,K)=PTT( 14, K) 

TDELD ( I4,K)=TDELD( 1 4, K) -EROS*PBANK ( 1 3 , K ) 

CONTINUE 

CONTINUE 

CHECK  CONTINUITY  IN  CASE  OF  TRIBUTARIES  OR  BANK  EROSION 


-  A 
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IF(NTRIB. EQ. 1 .AND. NBANK. EQ. 0)  GO  TO  790 

IF ( QSD . GE .0.0)  GO  TO  790 

DO  740  12=1, NTRIB 

I3=LOCTR( 12 ) - 1 

IF( 13 .EQ. I )  GO  TO  746 


740 

742 

K.v-. 
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?  747 


CONTINUE 

DO  745  12=1 , NBANK 
I3=LOCBER( 12) 

IF( 13 . EQ . I )  GO  TO  746 
CONTINUE 
GO  TO  790 
QSDI=0 . 

DO  747  L=1,N1 

QSD I =QSD I + TDELD ( I , L ) 

QSDO=QSDI 
DO  765  L=1,N1 

I F ( TDELD ( I , L ) . GE . 0 . 0 )  GO  TO  765 
IF(PQS(I/L) .NE.O.O)  GO  TO  765 
I8=MIND 

IF(IT.EQ.l)  I8=N1-1 
I F ( L . GE . 18  )  GO  TO  765 

QSDI=QSDI-ABS( TDELD ( I , L) ) 

TDELD ( I , L ) =0 . 0 

CONTINUE 

DO  775  L=1 , N1 

IF(TDELD( I , L) .NE.O.O)  TDELD ( I ,  L ) =TDELD ( I ( L ) + 

@  (QSDI-QSDO) *PQS( I , L) 

CONTINUE 

CONTINUE 

CALL  HYSORT  TO  UPDATE  MIXED  LAYER  SIZE 
DISTRIBUTION  FOR  REACH  I 

CALL  HYSORT 

COMPUTE  TOTAL  DEGRADATION  IN  REACH  I 

TOTAL=0 
11=0 
1 1 1=0 

DO  550  K=1,N1 
TOTAL=TOTAL+TDELD ( I , K) 

IF(ABS(TOTAL) .LE. 0.001  )  TOTAL=0.0 
AB=TOTAL/DW ( I ) 

IF(AB.GT. .08)  11=11+1 
IF(AB.GT. .01)  111=111+1 
IF(IT.EQ.l)  GO  TO  570 
CDEP ( I ) =CDEP ( I ) + TOTAL 
DARM( I ) =DARM ( I ) + TOTAL 
GO  TO  571 
CDEP ( I ) =TOTAL 
DARM( I ) =TOTAL 

CALL  ARMOR  TO  UPDATE  ARMORING  FACTOR  FOR  REACH 
CALL  ARMOR 


CONTINUE 

CONTINUE 


CHECKING  CRITERIA  FOR  RECOMPUTING  BACKWATER  PROFILE 

IF( IT.EQ. 1)  GO  TO  1001 
IF( IFLAG.EQ.O)  GO  TO  1004 
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1001 

1002 

1004 


1010 


1015 

C 

C 

C 

1005 


1006 


96 

99 

95 

9999 


DO  1002  1=1 , NN 
CDEP 1(1) =CDEP ( I ) 

IF( II .EQ. l.OR. Ill .GT. ILIMIT)  GO  TO  1015 

IFLAG=0 

LL=0 

DO  1010  1=1, NN 
A4=CDEP ( I ) -CDEP1 ( I ) 

A4=ABS(A4)/DW( I ) 

IF ( A4 . GT . . 01  )  LL=LL+1 
IF ( A4 . GT . . 08  )  IFLAG=1 
CONTINUE 

IF(LL.GT. ILIMIT)  IFLAG=1 
IF( I FLAG. EQ . 0 )  GO  TO  1005 
IFLAG=1 

PRINT  OUT  OF  RESULTS 

IF ( I BUG. EQ. 0 . OR. I PRINT. EQ. 0 )  GO  TO  1006 

WRITE (6,99)  I FLAG 

WRITE (6,98)  ITIME 

DO  500  I 1=2 , N 

I=N+1-I1 

I F ( IBUG.EQ. 1)  WRITE( 6,50)  I,J 

DO  500  K=1,N1 

PCENT=  PT( I , K)  *100.0 

IF (DELT( I , K) -EQ.O)  DELT ( I , K ) =900 . 0 

IF( ISED.EQ. 1. AND. IBUG.EQ. 1)  WRITE(6,65)  K , TDELD ( I , K ) , PCENT 
CONTINUE 

IF( IBUG.EQ. 0. OR. iPRINT. EQ.O)  GO  TO  9999 
N4=N- 1 

DO  502  14=1 , N4 

WRITE (6,86)  I 4 , ( TDELD ( I 4 , K ) , K=1 , N1 ) 

WRITE( 6,87)  14, (PT(I4,K) ,K=1,N1) 

WRITE ( 6, 88)  14, ( PQS ( 14, K) , K=1 , N1 ) 

WRITE (6,89)  14, ( DELT ( 14, K) , K=1 , N1 ) 

WR I TE (6,95) 

FORMAT ( 10X, ' 1=' , 13, 3X, 'DEGR/AGGR. ' ,2X,9F9.5  ) 

FORMAT ( 10X, 1 1= ' , 13, 3X, '  S . D. (BM) ' , 2X, 9F9 . 5  ) 

FORMAT ( 10X, ' 1=' , 13, 3X, '  S . D . ( QS ) ' , 2X, 9F9 . 5  ) 

FORMAT ( 10X, ' 1=' , 13, 3X, ' DELT ( DAYS ) ' ,2X,9F9 .2  ) 

FORMAT (///, 10X,  'REACH _ '  , 13, 5X,  ' SEGMENT.  .  ' , 12,/, 10X,28( ) ,//, 

*10X, 'SED. FRACTION' ,15X, 'CHANGE  IN  BED  ELEVATION( FT . ) ' //32X, ' BED  LO 
*AD ' , 11X, ' SUSP.  LOAD' , 12X, 'TOTAL' , 10X, 'PERCENTAGE' ,/) 

FORMAT ( 15X, 12 , 50X, E14 . 6 , 8X, F8. 4) 

FORMAT ( ///// , 1 OX , 3 0 ( ' * '  ) , 4X ,  ' SED I MENT  C ALCULAT I ONS  AFTER '  , IX , 

*14, 2X, 'DAYS' , 4X,30( ' * ' ),///) 

FORMAT ( // , 10X, ' A4= ' ,F8.4) 

FORMAT ( //// , 10X, ' I FLAG= ',12) 

FORMAT (/  ) 

RETURN 


SUBROUTINE  DAARMO  ( ACF ,  ACF1 ,  PT , D , P , CDEP , PTT, VOLOUT, BB, SF 
D50 , THBED , PTA , NBEL , STAGE 1 , PBED , Q , RA , DARM , ELI , ARM , PAC , 
TDELD ) 
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THIS  SUBROUTINE  CALCULATES  ARMORING  OF  BED  SURFACE 

IBLR=  INDEX  VARIABLE  FOR  INCLUDING  BED  LAYER  IN  SEDIMENT 

CALCULATIONS;  0  IF  BED  LAYER  IS  NOT  INCLUDED  (IMPLYING 
USE  OF  ARMORING  PROCEDURE);  1  IF  BED  LAYER  IS 
CONSIDERED  (ARMORING  PROCEDURE  NOT  USED) 

I SLR=  INDEX  VARIABLE  FOR  SURFACE- LAYER  D50  CALCULATIONS;  0  IF 

SURFACE-LA  TER  D50  NOT  USED;  1  IF  USED  IN  SEDIMENT-DISC. 
CALCULATIONS 

I ARMOR= I NDEX  VARIABLE  TO  SPECIFY  OR  DETERMINE  ARMORING 
SEDIMENT  SIZE;  IARMOR=0(  SPECIFY;  =1  FOR 
DETERMINING  INTERNALLY 

MIND=  FRACTION  NUMBER  FOR  THE  MINIMUM  SEDIMENT  SIZE  WHICH 
(AND  COARSER  FRACTIONS)  FORM  ARMOR  COAT 
QMAX=MAX  I  MUM  WATER  D I  SC.HARGE  ( CFS .  )  FOR  DETERMINING  NON-MOVING 
ARMORING  FRACTIONS 

IQMAX=INDEX  VARIABLE  FOR  SPECIFYING  WATER  DISCHARGE  FOR  ARMORING 
CALCULATIONS;  IQMAX=0  FOR  USING  SPECIFIED  CONSTANT 
QMAX  IN  EACH  TIME  STEP  AND  REACH;  =1  FOR  USING  WATER 
DISCHARGE  FROM  SPECIFIED  HYDROGRAPH 
KARM=INDEX  VARIABLE  FOR  MODIFYING  THE  ARMORING  COEFFICIENT 
(CARM);  0  FOR  USING  SPECIFIED  VALUES;  1  FOR  MODIFYING 
CARM  USING  GESSLER'S  RELATION;  2  FOR  USING  BED-LOAD 
METHOD;  3  FOR  USING  BOTH  GESSLER'S  AND  BED-LOAD  METHODS  ; 

4  FOR  USING  DUNE -HEIGHT  METHOD  ;  5  FOR  USING  BOTH 
GESSLER'S  AND  DUNE-HEIGHT  METHODS 
IACF=INDEX  VARIABLE  FOR  SPECIFYING  INITIAL  ARMORING;  0  FOR  NO 

INITIAL  ARMORED  AREA;  1  IF  ARMORED  COAT  (PARTIAL  OR  FULL) 
EXISTS  AT  THE  BEGINNING 

DIMENSION  P(N1) ,D(N1) , PT ( NN,  N1),PTT(NN,  N1),CDEP(N), 

1  VOLOUT(N) ,ACF(N) ,ACF1(N) /BB(N) /SF(N) ,D50(NN) , THBED(NN) , 

2  PTA(NN,  N1 ) , NBEL(NN) , STAGE 1 (N, MAXMA ) , PBED(NN  ,  N1 , MAXBED ) 
DIMENSION  Q(N) ,RA(N) ,DARM(N) , ELI ( N ) , ARM ( N, N1 ) , PAC (N , N1 ) 

DIMENSION  TDELD(N,  N1 ) 

COMMON/D I MS/N , N1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , N1 P 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED , MAXBED , NBED, NTP , NT1 , IDREJ ,  NTY 
COMMON/SCALR/ INDEX, L6, IDELT,VIS, ITIME , GAMA, I FLAG, IT, INDSS, IFLAG1 , 
1  ILIMIT,MM1, IEQ, IRES, I SED , ALFA , BETA, C2 1 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR , CARM , CPPMUP , IBUG, ICHB, ICOFF 
COMMON/ S  LOHY S/ 1 ,  L7 
COMMON/ARM/MIND, QMAX, I ARMOR, I QMAX 
COMMON/DREJ/KDREJ 
COMMON/ARM1/ 1 BLR , I  SLR, FSLR 

READ  INDEX  VAR.  FOR  USE  OF  BED  LAYER 

READ (5, 1000)  I BLR, I  SLR 
WRITE(6, 1002 )  IBLR, ISLR 
FSLR=1 . 0 

IF(ISLR.EQ.l)  FSLR=0 . 0 
IF( IBLR.EQ.O)  WRITE (6,41) 

IF( IBLR.EQ. 1)  WRITE( 6 , 42 ) 

FORMAT ( // , 1 OX , ' BED  LAYER  IS  NOT  CONSIDERED  (ARMORING  PROCEDURE', 

1  ’  USED)' ,/,10X,53( '-’ ),/) 

FORMAT (//, 10X, ' BED  LAYER  IS  CONSIDERED  (ARMORING  PROCEDURE  NOT', 

1  '  USED) ' , /, 10X, 53 ( ' - ' ),/) 
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1002  FORMAT (/,  10X,  '  I BLR= '  ,  12,47.,  '  ISLR='  ,  12) 

IF( IBLR.EQ. 1)  GO  TO  4000 
C 

C  READ  ARMORING  INPUT  PARAMETERS  DURING  PREPARATORY  PHASE 

C  OF  RUN . 

C 

READ(5, 1000)  I ARMOR, MIND, QMAX, IQMAX, IACF,KARM,C1 
1000  FORMAT (215, F10. 0,315, F10 . 4 ) 

DARMOR=0 . 

IF ( I ARMOR . EQ . 0 )  DARMOR=D(MIND ) *304 . 8 

WRITE (6,43 )  IARMOR, MIND, QMAX, I QMAX , DARMOR , IACF,KARM,C1 
43  FORMAT (/, T10, 'BED  ARMORING  PARAMETERS:  IARMOR= ' , 12 , '  MIND 

1  13,'  QMAX=' , F10.2, '  IQMAX=',I2,'  DARMOR= ' , F10 . 3 , 

2  2X, ' I ACF= ' , 12, 2X, 1 KARM= ' , I2,2X, 'Cl=' ,F6.3,/, 

3  T10, 24( 1H- ) ) 

C 

I F ( IACF.EQ. 1)  GO  TO  2000 
DO  1010  I 1=1 , NN 
DO  1010  Kl=l , N1 
ARM ( I 1 , K1 ) =0 . 0 
1010  CONTINUE 

GO  TO  2500 

2000  DO  2010  I 1=1 , NN 

READ( 5 , 101 )  ( ARM ( I 1 , K1 ) , Kl=l , N1 ) 

WRITE( 6, 110) 

WRITE ( 6 , 120 ) ( ARM( I 1 , K1 ) , Kl=l , N1 ) 

2010  CONTINUE 
101  FORMAT (6F10. 6) 

110  FORMAT(/,T10, ' INITIAL  ARMOR-COVERED  AREA  (FRACTION)  : ' ,/) 
120  FORMAT ( T15, 10F8. 4) 

2500  DO  3500  I1=1,NN 
ACF ( I 1 )=0 . 0 
DO  3000  K1=1,N1 
ACF (II )=ACF ( II ) +ARM( I 1 , K1 ) 

3000  CONTINUE 
3500  CONTINUE 

4000  IF( IBLR.EQ. 0)  GO  TO  5000 
DO  4050  11=1, NN 
4050  ACF (II) =0 . 0 
5000  RETURN 

Q************-ft-****’fr,*'**,Ar**'*,***,Ar*****,*r*** 

ENTRY  ARMOR 

Q* ************************************* 

c 

IF( IBLR.EQ. 1)  GO  TO  800 
C 

105  Sl=(SF(I)+SF(I+l))/2.0 

100  IF( IARMOR. EQ.O)  GO  TO  200 
C 

C  COMPUTE  THE  ARMORING  SEDIMENT  SIZE 

C 

IF( IQMAX. EQ. 1)  GO  TO  170 

Al=QMAX/( (BB( I )+BB( 1  +  1) ) *0. 50)/( (32 .2*1 . 65*D50 ( I ) *  *3 ) 

1  **0.50) 

A1=ALOG10( A1 ) 

A2=ALOG10(S1  *1000.0) 

VFD=10 . 0*  * ( -0. 4812+0. 37610 *Al+0. 3 1060* A2 ) 

VEL=VFD*SQRT(32 .2*1. 65*D50( I ) ) 
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185 


410 
4.  420 


DEP=QMAX/ ( BB ( I ) +BB ( I + 1 ) ) *0 . 50/VEL 
USTAR=SQRT( 32 . 2*DEP*S1 ) 

I F( IQMAX.EQ. 1 )  USTAR=SQRT (32.2* ( RA( I )+RA( 1+1 ) )/2.0*Sl) 

DO  180  K=1 , N1 
RS=USTAR*D ( K ) /VIS 
CALL  SHIELD(RS, SHP ) 

USC=SQRT(SHP*32.2*1.65*D(K) ) 

IF (USC . GT . USTAR)  GO  TO  185 

CONTINUE 

MIND=K 

IF(USC.LT. USTAR)  MIND=N1+1 
IF(MIND.LE.Nl)  DARMOR=D(MIND) *304. 8 
IF(MIND.GT.Nl)  DARMOR=2 . 0*D(N1 ) *304 . 8 
IF(IBUG.EQ.l)  WRITE ( 6 , 16 )  MIND , D ARMOR  , IT, I 

FORMAT (  10X, ' MIND= ' , 12,3k, 'DMIN=' , F8 . 3 , 'MM. ' ,3X, ' IT=' , 14, 4X, 

@  ' 1=' , 13  ) 

CONTINUE 

ADJUSTING  SIZE  DISTRIBUTION  OF  ARMORING  FRACTIONS  IN  CASE  OF 
VERTICAL  VARIATION  OF  BED  MATERIAL 

BEDEL=STAGE1 ( 1,1) 

I F  (  I  BED .  EQ  .  0  )  GO  TO  410 
I F (NBEL( I ) . EQ . 0 )  GO  TO  410 
I F ( DARM ( I ) . LE . 0 )  GO  TO  410 
IF( I .EQ. 1)CDEPP=CDEP( I ) 

IF( I .GT. 1)  CDEPP= ( CDEP ( I ) +CDEP ( I - 1 ) )/2 . 0 
T1=STAGE1 (1,1) -THBED ( I ) +CDEPP 
IF(T1.LE. BEDEL  )  GO  TO  410 
IF ( T1 .GT. BEDEL  )  GO  TO  208 
DO  205  K=MIND, N1 
PTA( I ,  K)=PTT(I,  K) 

NB=NBEL ( I ) 

DO  210  L=1,NB 

T1=STAGE1( I, 1)-L*THBED( I ) +CDEPP 
IF(T1.GT. BEDEL  )  GO  TO  215 
CONTINUE 
L=NB 

DO  260  K=MIND,N1 

ELL=STAGE1 (1,1) -THBED ( I ) *L+CDEPP 

PIN=PTT( I ,  K) *THBED( I ) +PBED( I ,  K, L) * (ELL-BEDEL  ) 

L2=L- 1 

IF( I BUG . EQ . 1 )  WRITE( 6, 94)  K,L2 
FORMAT ( 5X, 'K=' , 13, 2X, 'L2=' ,16) 

IF( L2 . EQ. 0 )  GO  TO  255 
DO  245  LA=1,L2 

PIN=PIN+PBED( I,  K, LA) *THBED( I ) 

PTA( I ,  K)=PIN/DARM( I ) 

CONTINUE 

CONTINUE 

I F ( I BUG . EQ . 1 )  WR I TE (6,81)  PTA(I,  K),I,K 
FORMAT ( 5X,  'PTA=' ,F10.6,2X,  ' 1= ' , 1 3 , 2X,  ' K= ' , 12 ) 

COMPUTING  FRACTION  OF  ARMORED  AREA 

IF( I BED . EQ . 1 )  GO  TO  450 
DO  420  K=MIND,N1 
PTA ( I ,  K)=PTT( I ,  K) 


180 


CONTINUE 

MODIFICATION  OF  CARM  BY  BED- LOAD  METHOD 
CARM 1=C ARM 

I F ( KARM . EQ . 0 . OR . KARM . EQ . 1 )  GO  TO  460 

CALCULATION  OF  TOTAL  SED.  DISCH. 

DEP= ( RA( I )+RA( 1+1) )/2.0 

VEL=Q( I )/( ( BB ( I ) +BB( I +1 ) ) *0 . 50 ) /DEP 

A3  =ALOG 1 0 ( DEP/D5 0 ( I )  ) 

A12=ALOG10(VEL/SQRT(32.2*1.65*D50(I) ) ) 

USTAR=SQRT( 32 . 2*DEP*S1 ) 

RS=USTAR*D50 ( I )/VIS 
CALL  SHIELD(RS/ SHP) 

USC=SQRT( SHP*32 . 2*1 . 65*D50( I ) ) 

I F ( KARM . GE . 4 )  GO  TO  455 

TEMP=USTAR-USC 

I F ( TEMP . LE . 0 . 0 )  TEMP=0.001 

A17=ALOG10 ( TEMP/SQRT( 32.2*1. 65*D50( I ) ) ) 

QS  =10 . 0** ( -2 . 2786+A12*2 . 9719+A12*A17*1 . 0600+A3*A17*0.2989) 
QT=QS*SQRT ( 32 . 2*1 . 65* (D50( I )  **3  )  ) 

CALCULATION  OF  BED- LOAD  DISCH.  (BY  SBTM) 

A4=ALOG10 (SI *  1000 . 0 ) 

F11=36.0*VIS**2/(32.2*1.65*( D50( I ) **3 ) ) 

Fl=SQRT(2./3 . +F11)-SQRT(F11) 

W=F1*SQRT( 32. 2*1.65*050(1) ) 

A6= ALOG 1 0 ( U  STAR/W ) 

A10=ALOG10 ( W*D50 ( I )/VIS) 

CB=10 . 0*  * ( -3 . 7518+A12*2 . 6279+A4*0 . 4595+A6* ( -2 . 5055 )  + 

@  A10*(-0.0932)+A17*0.7395) 

ETAA=(D50( I ) *USTAR/USC)/DEP 
F=8 . 0*32 . 2* DEP* SI/ ( VEL**2 ) 

FN=0. 40*SQRT(8. O/F) 

WU=W/USTAR 
CF=1 . 00 

IF(WU.GT. 1.00)  CF= 1 . 0/SQRT ( WU ) 

QB=CB*DEP*VEL*(ETAA**(1./FN+1. ) )*CF 

QBQT=QB/QT 

PQBQT=QBQT*  *C1 

CARM 1 =CARM  *  PQBQT 

GO  TO  460 

CONTINUE 

MODIFICATION  OF  CARM  BY  DUNE -HEIGHT  METHOD 

THETA=DEP*Sl/( 1 . 65*D50( I ) ) 

THETAC=USC**2/( 32 . 2*1 . 65  *D50 ( I ) ) 

IF ( THETA. LE. 1.10)  PDH=( 1 . 10-THETA )/( 1 . 10-THETAC) 

IF ( THETA. GT. 1.10)  PDH= ( THETA- 1 . 10 )/( 1 . 50- 1 . 10 ) 

IF(PDH.GT. 1.00)  PPH=1.00 
CARM 1=C ARM *PDH 

IF(IBUG.EQ.l)  WRITE (6,54)  THETA , THETAC , PDH , CAR  I 
FORMAT (5X, ' THETA= ' , F6.3,2X, ' THETAC= ' , F6.3,2X, 'PDH=' , F6 . 3 , 

@  2X, ' CARM1= ' , F6 . 3 , 2X, ' 1=' ( 14) 
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IF(MIND.GT.Nl)  GO  TO  525 
DO  500  IA=MIND,N1 

I F ( KARM . EQ . 0 . OR . KARM . EQ . 2 )  GO  TO  498 
IF(KARM. EQ. 4)  GO  TO  498 

MODIFICATION  OF  CARM  BY  GESSLER'S  PROBABILITY  CURVE 

RS=USTAR*D( IA) /VIS 
CALL  SHIELD ( RS , SHP) 

USC=SQRT(SHP*32.2*1.65*D(IA) ) 

TCTO= ( USC/USTAR ) *  *2 
XX=(TCTO-1.0)/(SQRT( 2.0) *0.57) 

PGESS=0 . 50+0 . 50*ERF(XX) 

CARM1=CARM*PGESS 
I F ( KARM . EQ . 1 )  GO  TO  498 
I F ( KARM . EQ . 3 )  CARM1=CARM*PGESS*PQBQT 
I F ( KARM . EQ . 5 )  CARM1=CARM*PGESS*PDH 

IF(  IBUG.EQ.  1)  WRITE(  6,55)  TCTO, PGESS ,  QBQT,  PQBQT, PDH,  CAR  IT,I,IA 
FORMAT ( 5X, 'TCTO=' ,F6.3,2X, 'PGESS=' ,F6.3,2X,  ' QBQT='  ,F6.3, 

1  2X, ' PQBQT= ' ,F6.3,2X, 'PDH=' ,F6.3,2X, 'CARM1=' ,F6.3,2X, ' IT=’ , I4,2X, 

2  ' 1=’ , 14, 2X, 'K=',I2) 

CALC.  OF  ARMOR-COVERED  AREA  FOR  EACH  FRACTION 

ARM ( I , I A ) = ARM ( I , I A ) +CARM1 *VOLOUT( I ) * ( 1 . 0-P ( I A ) )* 

@  PTA ( I ,  I A ) /D ( I A ) 

IF(ARM(I, IA) .LT.O.O)  ARM( I ,  IA)=0. 0 

CONTINUE 

ACF ( I ) =0 . 0 

DO  560  IA=1,N1 

IF( IA.LT.MIND)  ARM( I , IA)=0. 0 

ACF ( I )=ACF( I ) +ARM( I , IA) 

CONTINUE 

IF( I BUG. EQ. 1 )  WRITE(6, 83 )  I , ACF ( I ) , PTA( I ,  MIND),PTA(I,  Nl), 

@  VOLOUT ( I ) 

IF(ACF(I) -GT.1.00)  ACF( I )=1 . 00 
IF(ACF(I) .LT.O.O)  ACF ( I ) =0 . 0 
IF(IT.EQ.l)  GO  TO  600 

I F  ( DARM  ( I )  .  GE .  0 . 0 .  AND .  ACF  ( I )  .  EQ .  0 . 0 )  GO  TO  600 
I F ( ACF ( I ) . LT . ACF1 ( I ) . AND . KDREJ . EQ . 0 )  ACF ( I ) =ACF1 ( I ) 

ACF1 ( I ) =ACF  ( I ) 

I F ( I BUG . EQ . 1 )  WRITE( 6, 82 )  ACF(I),I 
FORMAT ( 5X, 'ACF=' ,F10.4,2X, ' 1=' , 13) 

FORMAT ( 5X, ' 1=' , 13, 2X, 'ACF=' ,E14.6,2X, 'PT(MIND)=' , 

@  E14 . 6 , 2X, ' PT(N1 )=' , E14 . 6 , 2X, 'VOLOUT=' ,E14.6) 

IF( IBLR.EQ.O)  GO  TO  6000 

CALCULATION  OF  BED-LAYER  SIZE  DISTRIBUTION 

S1=(SF(I)+SF(I+1) )/2.0 
DEP=(RA(I)+RA(I+1) )/2.0 
UST=SQRT( 32 . 2*DEP*S1 ) 

RS=UST*D50( I )/VIS 
CALL  SHIELD(RS, SHP) 


850 

6000 


USC=SQRT( SHP*32 .2*1. 65*D50 ( I ) ) 

TACL=D50( I ) *UST/USC 
VREM=0 

DO  810  K1=1<N1 

T1=TACL*PAC(I,K1)  -TDELD( I ,  K1 ) 

IF( T1 . LT . 0 . )  T1=0 . 0 
VREM=VREM+T1 
CONTINUE 
DO  850  K1=1,N1 

T1=TACL*PAC ( I , K1 )  -TDELD( I ,  K1 ) 

I F ( T1 . LT.O. )  T1=0 . 0 

PAC ( I , K1 )  =  ( T1 + ( TACL- VREM ) *  PT ( I  ,  K1 ) )/TACL 
IF(VREM.GT.TACL)  PAC ( I , K1 ) =PT( I ,  K1 ) 
CONTINUE 
RETURN 


SUBROUT I NE  DAHYSO ( VOL I N , STAGE 1 ( D50 , P , PT , PTT , S SC , CTO , SF, ACF, 

1  RA , BZ , TDELD , VOLOUT , LLIM, DELT, TI , TH, TH1 , PTP , ELI ,  EL2  , 

2  PTU , BML , TB , NBEL , THBED , PBED , CDEP , D, D50SL) 


C 

C 

C  NOTE:  RA  IS  A  PSEUDONYM  FOR  R 

DIMENSION  VOLIN ( N , N1 ) , STAGE 1 ( N , MAXMA ) , D50 (NN) , P (Nl ) , PT(NN, 

1  N1 ) , PTT ( NN , N1 ) , SSC ( N, N1 ) , CTO ( N ) , SF ( N ) , ACF ( N ) , 

2  RA( N) , BZ (N, Nl ) , TDELD (N; N1 ) , VOLOUT(N) , LLIM(N) , DELT(N, 

3  Nl) ,TI (N,N1) ,TH(N) ,TH1(N) ,PTP(N,N1) ,EL1(N) , 

4  EL2 ( N )  , PTU ( N , Nl ) , BML ( N )  , TB ( N , Nl ) , NBEL ( NN ) , THBED ( NN ) , 

5  PBED ( NN , Nl , MAXBED ) , CDEP ( N ) , D ( Nl )  , D50SL ( N ) 

COMMON/D IMS/N , Nl , NT , Ml , MAXMA , NN , MEMO , NX , I GR , N 1 P 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED, MAXBED , NBED, NTP , NT1 , IDREJ, NTY 
COMMON/SCALR/ I NDEX , L6 , IDELT, VIS, I TIME, GAMA, I FLAG, IT, INDSS, IFLAG1 , 
1  ILIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA,C21, C22, FMIX, IFR, IPRINT, 

2 1 UF , STR , CARM , CPPMUP , I BUG, ICHB, ICOFF 
COMMON/WATRES/FFCW , CPPM , FU , I REP , CPREV , FF 
COMMON/SLOHYS/I , K 
C 

COMMON/ARM1/ 1 BLR , I  SLR, FSLR 
RETURN 

Q  ************ 

ENTRY  HYSORT 

C  ************ 

C 

C  WARNING: ARMORING  FACTOR  APPROACHING  UNITY 

C 

IF  ( ACF ( I ) . GT .0.98)  WRITE  (6,2000)  ACF ( I ) , I , ITIME , IT 


F777T 
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2000  FORMAT  (T5, 'WARNING: ARMORING  FACTOR  =',F5.3,'  IN  REACH', 

1  13,'  AT  TIME', 16,'  IT=',I5) 

ACF ( I )=AMIN1 (0.98, ACF ( I ) ) 

NA=(N-1 ) *100 
IADJ=0 
VOLOUT ( I )=0 
TH ( I ) =0 
TOTAL=0 
LLIM( I )=0 
C 

D50R=D50 ( I ) 

IF( ISLR.EQ. 1)  D50R=D50SL( I ) 

DM=( RA( I ) +  RA( I +1 ) ) *0 . 5 
SM= ( SF ( I ) +  SF ( I  + 1 ) ) *0 . 5 
THA=DM*SM/(1.65*D50R  ) 

THA=THA*0. 333333 
C 

C  MIXED  LAYER  THICKNESS  COMPUTED  BY  EQ.6,  IIHR  250 

C 

TM=DM* (0.079865+2 .23897*THA- 18. 1264*THA**2+70 . 90*THA**3 
#  -88 . 3293+THA*  *2*THA*  *2 ) *0 . 50*FMIX 

DMM=DM*0 . 1 

IF(TM.LT.DMM)  TM=DMM 
FR1=TM/DM 

IF( IBUG.EQ. 1)  WRITE ( 6,12)  I , TM, DM, FR1 
12  FORMAT ( 5X, ’ 1=' , 14, 2X, ' TM=' ,E14.6,2X, ' DM=' , E14. 6, 2X, 'H/D=' ,F6.3) 
C 

C  ADJUSTMENT  OF  SIZE  DIST.  IF  MIXED-  LAYER  THICKNESS  IS 

C  MORE  THAN  THE  TOP-LAYER  SEDIMENT  BED  THICKNESS 

C 

IF( IBED.EQ.O.OR. IT.GT. 1)  GO  TO  315 
IF(NBEL( I ) . EQ. 0 )  GO  TO  315 
I F ( TM . LE . THBED ( I ) )  GO  TO  315 
LL=NBEL( I ) 

DO  300  L=1,LL 
T1=THBED( I ) *L 
IF(TM.GT.Tl)  GO  TO  305 
300  CONTINUE 
L=LL 

305  L2=L-1 

DO  310  K=1,N1 

PT ( I , K ) =PT ( I , K) * THBED ( I ) /TM+ ( TM- THBED ( I ) *  L ) /TM*PBED ( I , K, L) 

IF( L2 . EQ . 0 )  GO  TO  310 
DO  306  L1=1,L2 

306  PT( I , K)=PT( I , K) +THBED( I )/TM*PBED( I , K, LI ) 

310  CONTINUE 

315  CONTINUE 
C 

c 

DO  75  K=1,N1 
DELT ( I , K ) =0 
PTP ( I , K ) =PT ( I , K ) 

IF(IT.EQ.l)  PTU ( I , K ) =PT ( I , K ) 

75  TOTAL=TOTAL+TDELD ( I , K ) 

DO  100  K=1,N1 

TI ( I , K) =TM* (l.O-P(K) )*PT(I,K) 

TB ( I , K ) =T I ( I , K ) * ( 1 . -BETA*FSLR*ACF ( I ) ) 

70  CONTINUE 
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IF(IBUG.EQ.l)  WRITE(6, 56)  I , K, TB( I , K) , TDELD( I , K) 

56  FORMAT  ( / ,  10X,  1  TB(  )  =  '  ,E14.6,2X,  '  TDELD= '  ,E14.6) 

TB ( I , K ) = AMAX 1(0. ,TB(I,K)) 

TH( I )=TH{ I ) +TB( I ,  K ) 

I F  (  TDELD  (  I ,  K )  .  LT .  0 . 0  )  GO  TO  76 
IF ( IADJ.EQ.O)  GO  TO  72 

IF( IT.EQ. 1 . AND . TDELD ( I , K ) . GT . TB( I , K) )  SSC( I , K)= 

*  TB(I,K)/TDELD(I,K)*SSC(I,K) 

72  CONTINUE 

IF( IT.EQ. 1. AND. TDELD( I , K) . GT . TB ( I , K ) )  LLIM( I )=1 
IF( IT.EQ. 1 . AND . TDELD ( I , K ) .NE.O)  DELT( I , K)=IDELT* 

*  TB ( I ,  K ) /TDELD ( I ,  K ) 

I F ( TDELD ( I , K ) . EQ . 0 )  DELT( I , K)=900 . 0 
DELT ( I , K ) =AMIN1 ( DELT ( I , K )  ,  9000  .  ) 

IF ( I T . EQ . 1 . AND . TDELD ( I , K ) . GT . TB ( I , K ) )  TDELD { I , K ) =TB ( I , K ) 

IF ( IT.EQ. 1)  GO  TO  90 
ABC=TH1 ( I ) *PT( I , K) 

IF( IADJ.EQ.O)  GO  TO  74 

I F ( TDELD ( I , K ) . GT . ABC )  S  SC ( I ,  K ) = ABC/TDELD ( I , K ) *  SSC ( I , K ) 

74  CONTINUE 

I F ( TDELD ( I ,  K )  . GT . ABC )  LLIM(I)=1 

I F ( TDELD ( I ( K) .NE.O)  DELT ( I , K ) = I DELT* ABC/TDELD ( I , K ) 

DELT( I,K)=AMIN1(DELT( I ,K) , 9000. ) 

TDELD( I , K)=AMIN1( TDELD ( I , K) # ABC) 

I F ( TDELD ( I ,  K ) .GE.O.O)  GO  TO  90 
76  CONTINUE 

DELT ( I , K) =AMIN1 (DELT( I ,  K ) ,  9000 .  ) 

I F ( IT.EQ. 1)  GO  TO  90 

IF( I . LT.NA)  TBB=TH1 ( I +1 ) *PTP ( 1+1 , K) 

IF(I.EQ.NA)  TBB=TH1 ( I ) *PTP ( I ,  K ) 

90  VOLOUT ( I )  =VOLOUT ( I ) +TDELD ( I , K ) 

100  CONTINUE 

IF( IADJ.EQ.O)  GO  TO  125 
CTO( I )=0 . 

DO  120  K=1 , N1 

120  CTO( I )=CTO( I )+SSC( I,K) 

IF ( I BUG . EQ . 1 )  WRITE ( 6 , 16 )  VOLOUT ( I ) , I , J 
16  FORMAT ( 5X(  ' *  *  *  VOLOUT  = '  , E14 . 7 , 2X, ' 1= ' , 12 , 2X, ' J= ' , 12 ) 

125  CONTINUE 

I F ( VOLOUT ( I ) . LT . 0 )  GO  TO  800 
CCC=0 

IF(IT.EQ.l)  TH1(I)=TH(I) 

DIN=TH( I ) +VOLOUT ( I )-THl( I ) 

ELI I=STAGEi ( I , 1 ) -TH1 ( I ) 

EL2 I=EL1 I -DIN 
BEL=BML( I ) 

IF( IT.EQ. 1)  BEL=EL2 I 
DO  200  K=1,N1 
C 

LINDEX=0 

LDEP=0 

I F( I BED . EQ . 1 )  CALL  VSORT( BEL , ELI I , EL2 I , DIN, PTT, PT, PTU, VOLIN, 

*  NBEL, THBED , PBED, L INDEX, STAGE 1 , CDEP , LDEP ) 

C 

IF ( L INDEX. EQ . 1 )  GO  TO  135 
IF( IT.EQ. 1 )  GO  TO  130 
I F ( EL2 I . GT . ELI I )  GO  TO  130 

IF( BEL  .GE.EL1I)  VOLIN ( I , K ) =DIN*PTT( I , K) 
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IF( EL1I . GE . BEL  .AND. BEL  .GT.EL2I)  VOLIN ( I , K)=(EL1 I-BEL 

#  *PTU ( I , K) + ( BEL  -EL2I ) *PTT( I ,  K) 

IF ( EL2 I . GT . BEL  )  VOL IN ( I , K)=DIN*PTU( I , K) 

130  IF(IT.EQ.l)  VOLIN ( I , K)=DIN*PTT( I ,  K) 

IF ( EL2 I . GT . ELI I )  VOLIN( I , K)=DIN*PT( I ,K) 

135  CONTINUE 

VOLIN ( I , K)=AMAX1 ( VOLIN( I ,K) ,0.0) 

BZ( I , K)=  TH1 ( I ) *PT ( I , K ) -TDELD( I ,K)+VOLIN( I , K) 

BZ ( I , K ) =AMAX1 ( BZ ( I , K ) , 0 . 0 ) 

200  CCC=CCC+BZ( I , K) 

ELI ( I ) =EL1 I 
EL2 ( I ) =EL2 I 
EMIN=EL1I 

IF ( EL2 I . LT . ELI I )  EMIN=EL2I 
BEL=AMIN1( BEL, EMIN) 

TH1 ( I )=0 
DO  220  K=1,N1 

149  TH1 ( I ) =TH1 ( I ) +TB ( I , K ) 

PT ( I ,  K ) =BZ ( I , K ) /CCC 
IF(I.NE.NA)  GO  TO  220 
IF(IT.EQ.l)  GO  TO  220 
IF ( BEL . LT . BML( I ) )  PTU( I ,K)=PT( I ,  K ) 

IF( IBUG.EQ. 1)  WRITE ( 6 , 151 )  I/K/PT(I,K) 

151  FORMAT (/ , 10X, ' PT( ' , 12 , ’ , ' , I 1 , ' , ' , 12 , * )= ' ,F10.4) 

220  CONTINUE 

BML( I )=BEL 
GO  TO  900 
800  CC1=0 

IF(IT.EQ.l)  TH1 ( I )=TH( I ) 

DIN=TH1 ( I ) -VOLOUT ( I ) -TH  (I) 

ELI I =STAGE1 (1,1) -TH1 ( I ) 

EL2 I=EL1 I +DIN 
BEL=BML( I ) 

IF(IT.EQ.l)  BEL=EL1 I 
DO  850  K=1,N1 
C 

LINDEX=0 

LDEP=1 

IF( I BED . EQ . 1 )  CALL  VSORT( BEL, ELI I , EL2 I , DIN, PTT, PT, PTU, VOLIN, 

#  NBEL , THBED , PBED , L INDEX, STAGE 1 , CDEP , LDEP ) 

C 

IF( LINDEX. EQ. 1 )  VOLIN(I,K)=  -VOLIN(I,K) 

IF(LINDEX.EQ.l)  GO  TO  832 
IF(IT.EQ.l)  GO  TO  830 
I F ( EL2 I . GT . ELI I )  GO  TO  830 

IF(BEL  .GE.EL1I)  VOLIN ( I , K)=DIN*PTT( I , K) 

IF (ELI I . GE. BEL. AND. BEL.GT. EL2I )  VOLIN( I ,K)=- ( (ELI I -BEL) 

#  *PTU ( I , K ) + ( BEL  -EL2I )*PTT( I,K) ) 

I F ( EL2 I . GT . BEL  )  VOL IN ( I , K)=DIN*PTU( I , K) 

830  IF(IT.EQ.l)  VOLIN ( I , K)=DIN*PTT( I , K) 

I F ( EL2 I . GT . ELI I )  VOLIN ( I,K)=DIN*PT(I,K) 

832  CONTINUE 

VOL IN ( I , K)=AMAX1 { VOLIN( I , K) ,0.0) 

BZ ( I , K ) =TH1 ( I ) *PT ( I ,K)-TDELD( I , K)-VOLIN( I , K) 

BZ ( I , K ) =AMAX1 ( BZ ( I , K ) , 0 . 0 ) 

850  CC1=CC1+BZ( I , K) 

ELI ( I )=EL1 I 


EL2 ( I )=EL2 I 


v  V  /  .•  .*  .*  , 
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EMIN=EL1I 

IF(EL2I .LT.EL1I )  EMIN=EL2 I 
IF(EMIN.LT.BEL)  BEL=EMIN 
TH1 ( I ) =0 . 

DO  860  K=1 , N1 

858  TH1 ( I ) =TH1 ( I ) +TB ( I , K ) 

PT(I/K)=BZ(I/K)/CC1 

IF ( I .NE.NA)  GO  TO  860 

I F ( IT.EQ. 1)  GO  TO  860 

IF ( BEL . LT . BML( I ) )  PTU( I , K) =PT( I ,  K) 

860  CONTINUE 

BML( I )=BEL 
900  RETURN 
END 
C 

C  - 

SUBROUTINE  VSORT  ( BEL, ELI I , EL2 I , DIN, PTT, PT, PTU, VOLIN, 

@  NBEL, THBED , PBED , L I NDEX , STAGE! , CDEP , LDEP ) 

C  - 

c 

C  THIS  SUBROUTINE  ADJUSTS  MIXED-LAYER  COMPOSITION  IN  CASE  OF 

C  VERTICAL  VARIATION  IN  SEDIMENT-BED  SIZE  DISTRIBUTION 

C 

DIMENSION  PTT(NN, N1 ) , PT{NN, N1 ) , PTU(N, N1 ) , VOLIN (N, N1 ) , 

1  NBEL(NN) , THBED ( NN ) , PBED ( NN , N1 , MAXBED ) , STAGE1 (N, MAXMA) , 

2  CDEP(N) 

COMMON/D I MS/N , N 1 , NT , Ml , MAXMA , NN , MEMO , NX , I GR , NIP 1 , NTONX , NOBS , 

1  NT3651 , NT3652 , NTRIB, NBANK, I BED, MAXBED, NBED, NTP , NT1 , IDREJ, NTY 
COMMON/SCALR/INDEX, L6, IDELT, VIS, I T I ME , GAMA , I FLAG , IT, INDSS, IFLAG1, 

1  I LIMIT, MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2  I UF , STR , C ARM , CPPMUP , I BUG , I CHB , I COFF 
COMMON/ SLOHYS/ I , K 

C 

I F ( NBEL ( I ) . EQ . 0 )  GO  TO  1000 
IF(LDEP.EQ.l)  DIN=  -DIN 
LINDEX=1 
NB=NBEL( I ) 

L1=0 

L2=0 

LB=0 

IF(I.EQ.l)  CDEPP=CDEP ( I ) 

IF( I .GT. 1 )  CDEPP= ( CDEP ( I )+CDEP( 1-1) )/2 . 0 
DO  200  L=1,NB 

T1=STAGE1( I , 1 ) -L*THBED( I ) +CDEPP 
I F ( NB . GT . 1 )  GO  TO  50 
IF(TI.GT.ELII)  L1=L 
IF(T1 . GT. EL2I )  L2=L 
IF(Tl.GT.BEL)  LB=L 

I F ( K . EQ . 1 . AND . I BUG . EQ . 1 )  WRITE(6,49)  I , ELI I , EL2 I , BEL, T1 

49  FORMAT (5X, ' 1=' 13, 2X, 'EL1I=' ,E14.7,2X, 'EL2I=' ,E14.7,2X, 

@  ' BEL= ' , E14 . 7 , 2X, 'Tl=' , E14 . 7 ) 

50  IF(NB.EQ.l)  GO  TO  200 

T2=STAGE1 ( I , 1 ) - ( L+l ) *THBED( I ) +CDEPP 
I F ( ELI I . LT . T1 . AND . ELI I . GT . T2 )  L1=L 
IF ( ELI I . LT . T1 . AND . L . EQ . NB )  L1=L 
IF(EL2I . LT.T1 . AND.EL2I .GT.T2)  L2=L 
I F ( EL2 I . LT . T1 . AND . L . EQ . NB )  L2=L 
IF( BEL . LT . T1 . AND . BEL . GT . T2 )  LB=L 
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IF(BEL.LT.T1 .AND. L.EQ.NB)  LB=L 
CONTINUE 

IF(L1 . CT . 0 . AND . L2 . GE . LI )  PTU ( I , K ) =PBED ( I , K , LI ) 

LL=L2 - 1 

IF(EL2I .GT. BEL)  GO  TO  990 
I F( EL2 I . GT . ELI I )  GO  TO  990 
I F ( BEL . LT . ELI I )  GO  TO  250 
THE  CASE  FOR  BEL  GT . ELI I 

I F ( LI . EQ . 0 . AND . L2 . EQ . 0 )  VOLIN( I , K)=DIN*PTT' I , K) 

I F ( LI . EQ . 0 . AND . L2 . EQ . 0 )  GO  TO  250 

IF(Ll.GT.O)  GO  TO  220 

EL1=STAGE1 ( I , 1 ) -THBED( I ) +CDEPP 

EL2=STAGE1 ( I , 1)-L2*THBED( I ) +CDEPP 

VIN= ( ELI I -ELI ) *PTT( I , K ) + ( EL2-EL2 I ) *PBED (  I , K, L2 ) 

IF(LL.EQ.O)  GO  TO  215 
DO  210  LA= 1 , LL 

VIN=VIN+THBED( I ) *PBED( I , K, LA) 

VOL IN ( I , K)=VIN 

IF(L1 . EQ. 0. AND. L2 .GT. 0)  GO  TO  250 

IF( LI . EQ . L2 )  VIN=DIN*PBED( I , K, LI ) 

IF( LI . EQ . L2 )  GO  TO  235 
EL1=STAGE1( I , 1 )-THBED( I ) *L1+CDEPP 
EL2=STAGE1( I, 1 )-THBED( I ) *L2  +CDEPP 

IF( L2 . GT . LI )  VIN= ( ELI I -EL2 ) *PBED ( I , K , LI ) + ( EL2-EL2 I ) * 

@  PBED( I , K, L2 ) 

LM=L1+1 

IF(LL.LT.LM)  GO  TO  235 
DO  230  LA=LM , LL 
VIN=VIN+THBED( I )*PBED( I , K, LA) 

VOLIN ( I , K)=VIN 
GO  TO  1000 

CONTINUE 

THE  CASE  FOR  BEL  LT.  ELI I 
I F ( BEL . GT . ELI I )  GO  TO  1000 
I F ( EL2 I . GT . BEL )  GO  TO  990 

I F ( LI . EQ . 0 . AND . L2 . EQ . 0 )  VOLIN( I , K) = (ELI I -BEL) *PTU( I , K) + 

@  ( BEL-EL2 I ) *PTT ( I ,  K ) 

I F ( LI . EQ . 0 . AND . L2 . EQ . 0 )  GO  TO  1000 
VIN=( ELI I -BEL ) *PTU ( I ,  K) 

EL2=STAGE1( I , 1)-L2*THBED( I)+CDEPP 

EL3=STAGE1( I , 1 )  -  ( LB+ 1 ) *THBED ( I ) +CDEPP 

IF(LB. EQ. L2 )  VOLIN( I , K)=VIN+ ( BEL-EL2 I ) *PBED( I , K , L2 ) 

IF( LB . EQ. L2 )  GO  TO  1000 

LL4=L2-LB 

IF( LL4 . EQ . 1 . AND . LB . EQ . 0 )  VOLIN( I , K)=VIN+ ( BEL-EL3 ) * 

1  PTT ( I , K )  ♦  ( EL3-EL2 I ) *PBED( I , K, L2 ) 

IF( I BUG . EQ . 1 )  WRITE( 6,252)  I , LI , L2 , LB , PTU< I , K) , PTT( I , K) , 

1  PBED( I , K, L2 ) , K 

FORMAT ( 5X, ' 1= ' , 13 , 2X, ' Ll= ' , 12 , 2X, ,L2=',I2,2X< ' LB= ' , 12 , 2X, 

1  ' PTU= ' , E14 . 6 , 2X, ' PTT= ' ,E14.6,2X, ' PBED=' , E14 . 6 , 2X, ' K= ' , 12 ) 
I F ( LL4 . EQ . 1 . AND . LB . EQ . 0 )  GO  TO  1000 

IF(LB.GT.O)  VIN=VIN+ ( BEL-EL3 ) *PBED ( I , K, LB ) + ( EL2-EL2 I )* 

@  PBED( I , K, L2 ) 

LN=LB+1 
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IF(LL.LT.LN)  GO  TO  400 
DO  260  LA=LN, LL 

260  VIN=VIN+THBED( I ) *PBED( I ,  K , LA ) 

400  VOLIN ( I , K)=VIN 

GO  TO  1000 
C 

990  IF ( EL2 I . GT . BEL )  VOLIN( I ( K)=DIN*PTU( I , K) 

I F ( EL2 I . GT . ELI I )  VOL IN ( I , K ) =DIN*PT( I , K ) 

1000  RETURN 
END 
C 

C  - 

SUBROUTINE  SHIELD ( RS , SHP ) 

C  - 

c 

C  THIS  SUBROUTINE  APPROXIMATES  SHIELD’S  CURVE 

C 

I F ( RS . GE . .3 . AND.RS. LE.2 . 0)  SHP=. 118* ( RS** ( - . 973 ) ) 

I F ( RS . GT . 2 . 0 . AND . RS . LE . 4 . 0 )  SHP= . 090  * ( RS*  * ( - . 585 ) ) 

I F ( RS . GT . 4 . 0 . AND . RS . LE . 10 . 0 )  SHP= . 0434* ( RS*  * ( - . 1 19 ) ) 

IF(RS.GT. 10. . AND.RS. LE. 30.0)  SHP= . 0275* (RS** ( . 0792 ) ) 

IF ( RS . GT . 30 . . AND . RS . LE . 500 . )  SHP= . 0194* ( RS** ( .181)) 

IF(RS.GT. 500.0)  SHP=.060 
RETURN 
END 
C 

C  - 

SUBROUTINE  TRIB  (QTR, QSTR, TDELTR, LOCTR, PTRIB, AC, BC, Q, 

1  LOCBER , BEROS , PBANK , CTO , INPUT) 

C  - 

c 

C  THIS  SUBROUTINE  COMPUTES  THE  COTRIBUTION  OF  TRIBUTARIES 

C  AND  BANK  EROSION 

C 

DIMENSION  QTR( NTRIB ) , QSTR ( NTRIB) , TDELTR ( NTRI B , N1 )  , 

1  LOCTR ( NTRI B ) , PTRIB ( NTRIB , N1 ) , AC (NTRIB ) , BC( NTRIB) , Q(N ) , 

2  LOCBER (N3ANK) , BEROS ( NBANK ) , PBANK ( NBANK , N 1 ) , CTO ( N ) 

COMMON/D I MS /N , N 1 , NT , M 1 , MAXMA , NN , MEMO , NX , I GR , N 1 P 1 , NTONX , NOB  S , 

1  NT 3 65 1,NT3 652, NTRIB, NBANK, I BED , MAXBED , NBED , NTP , NT1 , IDREJ , NTY 
COMMON/SCALR/IND'X, L6, IDELT, VIS, ITIME, GAMA, I FLAG , IT, INDSS, I FLAG 1 , 
1  I  LIMIT , MM1 , IEQ, IRES, ISED, ALFA, BETA, C21 , C22 , FMIX, IFR, IPRINT, 

2 IUF, STR, CARM, CPPMUP , I BUG, ICHB, ICOFF 
COMMON/BANK/I BSED,QMIN, IUPS 
C 

C  IBSED=  INDEX  VARIABLE  FOR  INDICATING  SIZE  DISTR.  OF  BANK  EROSION; 

C  IBSED=0  FOR  ASSUMING  SAME  DISTR.  AS  BED  MATERIAL;  =1 

C  FOR  SPECIFYING  THEIR  VALUES  AS  INPUT 

C  QMIN=  MINIMUM  WATER  DISCHARGE ( CFS . )  ABOVE  WHICH  BANK  EROSION 

C  OCCURS 

C  IUPS=INDEX  VARIABLE  TO  SPECIFY  UPSTREAM  SEDIMENT  INFLOW; 

C  IUPS=0  FOR  CONSTANT  SED.CONCN.;  =1  FOR  FUNCTION 

C  OF  WATER  DISCHARGE 

C  NOTE  :  UPSTREAM  SEDIMENT  INFLOW  IS  TREATED  IN  THE  SAME  WAY 

C  -  AS  FOR  TRIBUTARIES 

C 

READ( 5,10)  IUPS 

I F ( INDSS. EQ. 1. AND. IUPS. EQ.O)  READ(5,35)  CPPMUP 
WRITE ( 6 , 12 )  IUPS 
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IF( INDSS . EQ . 1 . AND. IUPS . EQ. 0)  WR I TE ( 6 , 17)  CPPMUP 
READ ( 5 , 10 )  ( LOCTR( 12 ) , 12=1 , NTRIB ) 

WRITE(6, 15) 

WRITE(6(20)  ( LOCTR( 12) , 12=1, NTRIB) 

FORMAT (1215) 

FORMAT ( // , 10X, ' IUPS=' , 12,//) 

FORMAT (//, 1 OX, ' TRIBUTARY  LOCATIONS  ( NODE  NUMBERS )  :',//) 

FORMAT ( / ,  5X, 'MEAN  SEDIMENT  CONCN.  AT  U/S  BOUNDARY= ' , F7 . 1 , 

2X, 'P.P.M. ' ,/) 

FORMAT ( 15X, 1018) 

FORMAT (//, 1 OX, 'TRIBUTARY  WATER  DI SCHARGES ( CFS . )  :',//) 

FORMAT (6F10. 2) 

FORMAT { 15X, 10F9.0) 

READ  TRIB. SED.DISCH.  COEFFICIENTS  AC,BC  IN  QS=AC*Q**BC 
QS  IN  TONS/DAY,  Q  IN  CFS. 

DO  102  12=1, NTRIB 
I F  ( 1 2  .  GT .  1 )  GO  TO  101 
1F( INDSS. EQ.O)  GO  TO  102 
IF ( IUPS . EQ . 0 )  GO  TO  102 
READ (5,35)  ( AC( 12 ) , BC( 12 ) ) 

CONTINUE 
WR I TE (6,36) 

DO  104  12=1, NTRIB 
I F ( I 2 . GT . 1 )  GO  TO  103 
IF( INDSS. EQ.O)  GO  TO  104 
IF( IUPS. EQ.O)  GO  TO  104 
WRITE ( 6 , 40 )  ( AC (12), BC (12)) 

CONTINUE 
FORMAT (2F14. 8) 

FORMAT (//, 1 OX, ' SEDIMENT  DISCHARGE  COEFFICIENTS  (FOR  TRIBUTARIE' , 
’S)  :',//) 

FORMAT ( 15X, 2F14 . 8 ) 


READ  SIZE  DISTR.  OF  TRIB.  SED.  INFLOWS 

WRITE (6, 28) 

DO  500  12=1, NTRIB 

READ( 5,25)  ( PTRIB ( 12, K) ,K=1,N1) 

WRITE ( 6,32)  ( PTRIB ( 12 , K) , K=1 , N1 ) 

FORMAT (//, 10X, ' SIZE  DISTRIBUTION  OF  TRIB.  SED.  INFLOWS  :',//) 
FORMAT ( 15X, 10F8.3) 


READ  PARAMETERS  FOR  BANK  EROSION 

IF(NBANK.EQ.O)  GO  TO  900 

READ (5,61)  IBSED, QMIN 

WRITE( 6,65)  IBSED, QMIN 

READ( 5,10)  ( LOCBER( 13), I3=1,NBANK) 

WR I TE ( 6 , 7  0 ) 

WRITE (6,20)  ( LOCBER( 13 ) , I3=1,NBANK) 
IF ( IBSED. EQ.O)  GO  TO  700 
WRITE(6, 68) 

DO  600  12=1 , NBANK 

READ (5,25)  ( PBANK( 12 , K) , K=1 , N1 ) 
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WRITE (6,32)  (PBANK( I2,K),K=1/N1) 

CONTINUE 
FORMAT ( 1 5 , F 10 . 1 ) 

FORMAT (//, 10X,  ' IBSED= 1  ,12,4m,  'QMIN='  , F10. 1 ,  '  CFS.  '  ,//) 
FORMAT (//, 10X, ’ SIZE  DISTR.  OF  BANK  EROSION  :',//) 

FORMAT (//, 1 OX,  1  LOCATION  OF  BANK  EROSION  (REACH  NUMBER)  :  '  , 

READ  BANK  EROSION  RATE, BEROS  (IN  C FT. /MILE/DAY) 

READ( 5,25)  (BEROS( 13) , I3=1,NBANK) 

WRITE (6,72) 

WRITE (6,74)  ( BEROS ( 13 ) , I3=1,NBANK) 

FORMAT (//, 1 OX, ' BANK  EROSION  COEFFICIENT  ( CFT/MI LE/DAY )  : ' 
FORMAT ( 15X, 8F10 . 1 ) 

CONTINUE 

RETURN 

★  ★★★★★★★★★★★♦★★★★♦★★★★★★♦★★★★★★★■it 

ENTRY  TRIBQS 

TRIBQS  CALLED  AT  BEGINNING  OF  EACH  TIME  STEP  TO  LOAD 
QSTR,  TRIBUTARY  SEDIMENT  INFLOWS 

COMPUTING  SED.DISCH.  OF  TRIBUTARIES 

DO  400  12=1, NTRI B 
IF( I2.GT. 1)  GO  TO  240 
I =LOCTR ( 12 ) 

IF( INDSS.EQ. 1 .AND. IUPS.EQ.O)  CTO( I ) =CPPMUP/ ( 2 . 65E6 ) 
CONTINUE 

IF( 12 .GT. 1 )  GO  TO  250 
IF( INDSS.EQ. 0)  GO  TO  300 

IF ( INDSS.EQ. 1. AND. IUPS.EQ.O)  QSTR (12) =CPPMUP/2 . 65E6 
@  *QTR( 12 ) 

IF( INDSS.EQ. 1. AND. IUPS.EQ.O)  GO  TO  300 

QSTR( 12 ) =AC ( 12 ) *QTR ( I2)**(BC( 12 )) *2000 . 0/( 62 . 5*86400 . 0 ) 

I F ( 12 .GT. 1 )  GO  TO  300 
I =LOCTR ( 12 ) 

I F ( INDSS.EQ. 1 .AND. IUPS.EQ. 1)  CTO( I )=QSTR( I2)/QTR( 12) 

CONT I NUE 
CONTINUE 

IF  (IBUG.NE.O)  WRITE  (6,2000)  ( QSTR ( 12 ) , 12= x , NTRIB ) 

FORMAT  (9X, 'TRIBUTARY  SEDIMENT  LOADS : ' , ( T35 , 12F8 . 2 ) ) 
RETURN 
END 


SUBROUTINE  ERROR1 ( I END , MEMO , N , Ml , N1 , NT , MAXMA, NOBS , NX, IGR) 


IERR=1 

WRITE ( 6 , 2000 )  I ERR 

FORMAT (/, IX, 110( 1H* ) , '  ERROR' , 12 ) 

WRITE(6, 2001 )  IEND,MEM0,N,M1,N1, NT, MAXMA, NOBS, NX, IGR 
FORMAT(T20,  ' REQUIRED  MEMORY= '  , 17,  '  (WORDS)  EXCEEDS  DIMENSION 
'OF  ARRAY  T( ' , 17, ' ) ' ,/,T20, ' N, Ml , N1 , NT, MAXMA, NOBS, NX, ' , 
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ENTRY  ERR0R2 ( I , MM , MAXMA ) 

IERR=2 

WRITE ( 6, 2000)  IERR 
WRITE ( 6, 2002 )  I , MM, MAXMA 

2002  FORMAT(T20, ’SECTION’ , 13, ’: NO.  OF  DEFINITION  LEVELS',  13, 

1  ’  EXCEEDS  MAXIMUM  ALLOTTED  ,MAXMA=',I4) 

STOP 

0  ************ 

ENTRY  ERROR3 ( IT, ITIME, TEMPF, TFLAST) 

Q  •k-k-k'k-k'k-k’k-kic'kir 

I ERR=3 

WRITE  (6,2000)  IERR 

WRITE  (6,2003)  TEMPF, TFLAST, IT, ITIME 

2003  FORMAT  (T20, ’WATER  TEMPERATURE= ' , F10 . 3 , '  EXCEEDS  MAXIMUM 

1  ALLOWED^’ , F10.3, '  IT=',I5,'  ITIME=',I5) 

RETURN 

q  ************ 

ENTRY  ERROR4 ( I , IT, ITIME, ITER, DEL) 

Q  ■k'k-k-k'k'klt-k-k-k-k-k 

IERR=4 

WRITE  (6,2000)  IERR 

WRITE  (6,2004)  ITER , I , IT, ITIME , DEL 

2004  FORMAT  (T20, ’BACKWATER  ITERATIONS  XECEED ' , 14, 'SECTION' , 14, 

1  ’  IT= ' , 14, '  ITIME=' , 14, '  DELTA  =' ,FI0.3) 

RETURN 

0  ************ 

ENTRY  ERROR5( I , IT, ITIME, IT2,TT) 

0  ************ 

IERR=5 

WRITE  (6,2000)  IERR 

WRITE  (6,2005)  IT2 , I , IT, ITIME , TT 

2005  FORMAT  ( T20 , ' TLTM  ITERATIONS  EXCEED' , 14, '  SECTION ', 14, ' IT= ' , 

1  14,'  ITIME= ' , 14, '  TT= ' , F10 . 3 ) 

RETURN 

END 


APPENDIX  C 

Sample  Input  for  Run  R2 


//GO. SYS IN  DD  * 

DEGRADATION  D/S  OF  GAVINS  POINT  DAM  (1956-76) 


22  1 

8 

012 

02 

0  0 

0  7 

6  0 

0  00 

0 

12 

0  0 

0 

061 

0 

0  1 

0  0 

0  0 

1  1 

1 

0 

1 

5  1 

0 

1.00 

1.00 

1 . 

.  00 

1 . 00 

1.00 

1 . 90 

0.0001890 

523.0 

0 

0.0 

22  21 

19 

14 

8 

7  4 

0.002652 

1 . 5790 

0.002652 

1.5790 

0.001360 

1 . 6700 

■*.  •*. 

V  V. 
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OHO 


0.0002649 

0.0001963 

0.00002854 

0.0 

0. 

.39 

0. 

.39 

0. 

.39 

0. 

.65 

0. 

.65 

.00 


2.1220 

2.8553 

2.6633 


20 


0 

21 
657. 

.062 

4.80 

606.15 

947.500 

997.500 
0.0 
1.0000 

615.90 
954.96 

1004.96 

0.0 

1.0000 

625.65 
962.43 

1012.43 

0.0 

1.0000 

635.40 
973.85 

1023.85 

0.0 

1.0000 

645.15 
985.28 

1035 . 28 
0.0 

1 . 0000 

654.90 
994.39 

1044.39 

0.0 

1.0000 

664.65 

1003.50 

1053.50 

0.0 

1.0000 

674.40 


0.0  0 

.0  0 

0.  0. 

0. 

.433 

.  127 

.05  0.  0. 

0. 

.433 

.  127 

.05  0.  0. 

0. 

.433 

.  127 

.05  0.  0. 

0. 

.284 

.066 

0.  0.  0. 

0. 

.284 

.066 

0.  0.  0. 

0. 

0. 

0. 

0.  0.  0. 

0. 

iOO.O 

i  19  18 

17  16 
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SECTION  NO.  1 
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0.1050 
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.9700 
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.9700 
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1013.03 
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1063.03 
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147.00 

961.97 

0.0 

*,  ■-  * 

6001 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

6120 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

6121 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

6  240 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

.  -•,* 

6241 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

•  ■"» 

6360 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

* 

6361 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

6480 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

6481 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

6600 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

■V ' 

6601 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

6720 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

s 

6721 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

.  * 

6340 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

v  . 

6841 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

6960 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

6961 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

w 

7080 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 

y/ 

7081 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

ZL 

7200 

38.15000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

955.56 

0.0 

7201 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

r  m 

7320 

70.36000.00 

776.00 

240.00 

2016.00 

1992.00 

248.00 

590.00 

961.97 

0.0 

•;> 

7321 

70.36000.00 

192.00 

60.00 

504.00 

498.00 

62.00 

147.00 

961.97 

0.0 
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